Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-04-17 17:24:32 -05:00
Code Issues Activity

Allow only create groups from valid selection.

Browse source
This commit is contained in:
Andrey Antukh 2016-01-30 00:13:30 +02:00
parent 949b522ba0
commit 3b4224586f
1 changed files with 13 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -352,8 +352,12 @@
(assoc $ :group group)
(assoc-in state [:shapes-by-id id] $)))
state
shapes))]
(reify rs/UpdateEvent
shapes))
(valid-selection? [shapes]
(let [groups (into #{} (map :group shapes))]
(= 1 (count groups))))]
(reify
rs/UpdateEvent
(-apply-update [_ state]
(let [shapes-by-id (get state :shapes-by-id)
sid (random-uuid)
@ -365,11 +369,13 @@
:items (into [] selected)
:id sid
:page pid}]
(as-> state $
(update-shapes-on-index $ selected' sid)
(update-shapes-on-page $ pid selected sid)
(update $ :shapes-by-id assoc sid group)
(update $ :workspace assoc :selected #{})))))))
(if (valid-selection? selected')
(as-> state $
(update-shapes-on-index $ selected' sid)
(update-shapes-on-page $ pid selected sid)
(update $ :shapes-by-id assoc sid group)
(update $ :workspace assoc :selected #{}))
state))))))
(defn delete-selected
"Deselect all and remove all selected shapes."