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

fix: group meta

pull/9480/head
Konstantinos Kaloutas 2023-05-24 21:49:21 +03:00
parent fe99214941
commit 57d6b1a018
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -153,13 +153,14 @@
(compute-tx app tl-page new-id-nonces db-id-nonces page-name replace?)
tx-data (concat delete-blocks [page-block] upserted-blocks)
new-shapes (get-in metadata [:data :new-shapes])
deleted-shapes (get-in metadata [:data :deleted-shapes])
metadata' (cond
;; group
(some #(= "group" (:type %)) new-shapes)
(assoc metadata :whiteboard/op :group)
;; ungroup
(every? #(= "group" (:type %)) (get-in metadata [:data :deleted-shapes]))
(and (not-empty deleted-shapes) (every? #(= "group" (:type %)) deleted-shapes))
(assoc metadata :whiteboard/op :un-group)
;; arrow