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

fix: filter out none shapes for tldraw

Browse Source
This commit is contained in:
Peng Xiao
2022-07-25 20:51:43 +08:00
parent dff55b10f9
commit 751df3b97d
4 changed files with 19 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -69,7 +69,8 @@
:block/whiteboard? true
:block/properties (dissoc tldr-data :shapes)}
existing-blocks (model/get-page-blocks-no-cache page-name)
blocks (mapv #(shape->block % page-name) (:shapes tldr-data))
shapes (:shapes tldr-data)
blocks (mapv #(shape->block % page-name) shapes)
block-ids (set (map :block/uuid blocks))
delete-shapes (filter (fn [shape]
(not (block-ids (:block/uuid shape))))
@@ -85,7 +86,9 @@
(defn- whiteboard-clj->tldr [page-block blocks shape-id]
(let [id (str (:block/uuid page-block))
shapes (map block->shape blocks)
shapes (->> blocks
(map block->shape)
(filter #(= :whiteboard-shape (:ls-type %))))
page-properties (:block/properties page-block)
assets (:assets page-properties)
page-properties (dissoc page-properties :assets)]