clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-04-30 00:46:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

wip: links for any shape

Browse Source
This commit is contained in:
Peng Xiao
2022-11-19 18:29:09 +08:00
parent 07d716756c
commit 883cdacd3e
4 changed files with 72 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
deps/graph-parser/src/logseq/graph_parser/whiteboard.cljs vendored
View File

@@ -43,16 +43,24 @@
(defn- get-shape-refs [shape]
(when (= "logseq-portal" (:type shape))
[(if (= (:blockType shape) "P")
{:block/name (gp-util/page-name-sanity-lc (:pageId shape))}
{:block/uuid (uuid (:pageId shape))})]))
(let [portal-refs (when (= "logseq-portal" (:type shape))
[(if (= (:blockType shape) "P")
{:block/name (gp-util/page-name-sanity-lc (:pageId shape))}
{:block/uuid (uuid (:pageId shape))})])
shape-link-refs (->> (:refs shape)
(filter (complement empty?))
(map (fn [ref] (if (parse-uuid ref)
{:block/uuid (parse-uuid ref)}
{:block/name (gp-util/page-name-sanity-lc ref)}))))]
(concat portal-refs shape-link-refs)))
(defn- with-whiteboard-block-refs
[shape page-name]
(let [refs (or (get-shape-refs shape) [])]
(merge {:block/refs refs
:block/path-refs (conj refs {:block/name page-name})})))
(merge {:block/refs (if (seq refs) refs [])
:block/path-refs (if (seq refs)
(conj refs {:block/name page-name})
[])})))
(defn- with-whiteboard-content
"Main purpose of this function is to populate contents when shapes are used as references in outliner."