|
|
@@ -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]
|