Whiteboard link

This commit is contained in:
Tienson Qin
2022-05-18 18:29:54 +08:00
parent ce7133e39d
commit ad8baa8e74
6 changed files with 41 additions and 5 deletions

View File

@@ -115,9 +115,10 @@
(defn- search-on-chosen
[repo search-q {:keys [type data alias]}]
(search-handler/add-search-to-recent! repo search-q)
(search-handler/clear-search!)
(let [whiteboard? (whiteboard-handler/whiteboard-mode?)
search-mode (:search/mode @state/state)]
search-mode (:search/mode @state/state)
whiteboard-link? (= search-mode :whiteboard/link)]
(search-handler/clear-search!)
(case type
:graph-add-filter
(state/add-graph-search-filter! search-q)
@@ -134,8 +135,13 @@
:page
(let [data (or alias data)]
(if whiteboard?
(cond
whiteboard-link?
(whiteboard-handler/set-linked-page-or-block! data)
whiteboard?
(whiteboard-handler/create-page! data)
:else
(route/redirect-to-page! data)))
:file
@@ -147,8 +153,16 @@
collapsed? (db/parents-collapsed? repo block-uuid)
page (:block/page (db/entity [:block/uuid block-uuid]))
long-page? (block-handler/long-page? repo (:db/id page))]
(if whiteboard?
(cond
whiteboard-link?
(do
(editor-handler/set-blocks-id! [block-uuid])
(whiteboard-handler/set-linked-page-or-block! (str block-uuid)))
whiteboard?
(whiteboard-handler/create-page! (str block-uuid))
:else
(if page
(if (or collapsed? long-page?)
(route/redirect-to-page! block-uuid)