|  | @@ -90,13 +90,15 @@
 | 
	
		
			
				|  |  |                                                  (:db/id (model/get-page uuid))
 | 
	
		
			
				|  |  |                                                  (keyword type)))
 | 
	
		
			
				|  |  |     :redirectToPage (fn [page-name-or-uuid]
 | 
	
		
			
				|  |  | -                     (let [page-name (if (util/uuid-string? page-name-or-uuid)
 | 
	
		
			
				|  |  | -                                       (:block/name (model/get-block-parent (parse-uuid page-name-or-uuid)))
 | 
	
		
			
				|  |  | -                                       page-name-or-uuid)
 | 
	
		
			
				|  |  | +                     (let [page-name (or (when (util/uuid-string? page-name-or-uuid)
 | 
	
		
			
				|  |  | +                                           (:block/name (model/get-block-parent (parse-uuid page-name-or-uuid))))
 | 
	
		
			
				|  |  | +                                         page-name-or-uuid)
 | 
	
		
			
				|  |  | +                           page-exists? (model/page-exists? page-name)
 | 
	
		
			
				|  |  |                             whiteboard? (model/whiteboard-page? page-name)]
 | 
	
		
			
				|  |  | -                       (if whiteboard? (route-handler/redirect-to-whiteboard!
 | 
	
		
			
				|  |  | -                                        page-name {:block-id page-name-or-uuid})
 | 
	
		
			
				|  |  | -                           (route-handler/redirect-to-page! page-name-or-uuid))))})
 | 
	
		
			
				|  |  | +                       (when page-exists?
 | 
	
		
			
				|  |  | +                         (if whiteboard? (route-handler/redirect-to-whiteboard!
 | 
	
		
			
				|  |  | +                                          page-name {:block-id page-name-or-uuid})
 | 
	
		
			
				|  |  | +                             (route-handler/redirect-to-page! page-name-or-uuid)))))})
 | 
	
		
			
				|  |  |  
 | 
	
		
			
				|  |  |  (rum/defc tldraw-app
 | 
	
		
			
				|  |  |    [page-name block-id]
 |