greatbody
/
logseq
mirror of https://github.com/logseq/logseq
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Update whiteboard.cljs

pull/6345/head
Peng Xiao 2022-08-06 10:38:35 +08:00
parent e9e2df17df
commit c8075a7ee0
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -78,7 +78,8 @@
;; todo: use get-paginated-blocks instead?
existing-blocks (model/get-page-blocks-no-cache (state/get-current-repo)
page-name
{:pull-keys '[:block/uuid
{:pull-keys '[:db/id
:block/uuid
{:block/parent [:block/uuid]}]})
shapes (:shapes tldr-data)
blocks (mapv #(shape->block % page-name) shapes)
@ -88,11 +89,13 @@
(concat (map :block/uuid blocks))
(remove nil?)
(set))
delete-blocks (filter (fn [block]
delete-blocks (filterv (fn [block]
(not (or (block-ids (:block/uuid block))
(block-ids (:block/uuid (:block/parent block))))))
existing-blocks)
_ (util/pprint delete-blocks)
delete-blocks-tx (mapv (fn [s] [:db/retractEntity (:db/id s)]) delete-blocks)]
(util/pprint delete-blocks-tx)
(concat [page-block] blocks delete-blocks-tx)))
(defn- get-whiteboard-clj [page-name]