mirror of https://github.com/logseq/logseq
fix: group meta
parent
fe99214941
commit
57d6b1a018
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue