clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-05-03 02:16:30 +00:00
Code Issues Packages Projects Releases Wiki Activity

searching text in whiteboard

Browse Source
This commit is contained in:
Peng Xiao
2022-07-21 15:46:25 +08:00
parent 5c468fe708
commit bc2ef6002b
3 changed files with 35 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/main/frontend/handler/whiteboard.cljs
View File

@@ -31,14 +31,20 @@
(when (= "logseq-portal" (:type shape))
[(select-keys (model/get-page (:pageId shape)) [:db/id])]))
(defn- get-shape-text [shape]
(:text shape))
(defn- shape->block [shape page-name]
(let [properties shape
block {:block/uuid (uuid (:id properties))
:block/page {:block/name page-name}
:block/content "" ;; give it empty string since some block utility requires it
:block/properties properties}
refs (get-shape-refs shape)]
(merge block (when refs {:block/refs refs}))))
refs (get-shape-refs shape)
content (get-shape-text shape)]
(merge block
(when refs {:block/refs refs})
(when content {:block/content content}))))
(defn- tldr-page->blocks-tx [page-name tldr-data]
(let [page-block {:block/name page-name