Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-10 17:18:21 -05:00
Code Issues Activity

Remove empty groups.

Browse source
This commit is contained in:
Andrey Antukh 2016-01-30 00:13:07 +02:00
parent 07359752ff
commit deb38435fd
1 changed files with 13 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/uxbox/data/workspace.cljs
View file

@ -157,6 +157,17 @@
(into [] (remove #(= % id) $))
(assoc-in state [:pages-by-id page :shapes] $)))
(clear-empty-groups [state {:keys [group] :as :shape}]
(if-let [group' (get-in state [:shapes-by-id group])]
(if (empty? (:items group'))
(as-> state $
(dissoc-from-page $ group')
(dissoc-from-group $ group')
(dissoc-from-index $ group')
(clear-empty-groups $ group'))
state)
state))
(dissoc-from-index [state shape]
(case (:type shape)
:builtin/rect (dissoc-icon state shape)
@ -171,7 +182,8 @@
(as-> state $
(dissoc-from-page $ shape)
(dissoc-from-group $ shape)
(dissoc-from-index $ shape)))))))
(dissoc-from-index $ shape)
(clear-empty-groups $ shape)))))))
(defn move-shape
"Mark a shape selected for drawing in the canvas."