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

Add event for group selected shapes.

Browse source
This commit is contained in:
Andrey Antukh 2016-01-17 23:30:46 +02:00
parent ee838a8a2e
commit c324755f24
1 changed files with 38 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -274,6 +274,44 @@
(map #(add-shape % %) $) (map #(add-shape % %) $)
(rx/from-coll $)))))) (rx/from-coll $))))))
(defn group-selected
[]
(reify rs/UpdateEvent
(-apply-update [_ state]
(let [selected (get-in state [:workspace :selected])
shapes-by-id (get state :shapes-by-id)
sid (random-uuid)
shapes (->> selected
(map #(get shapes-by-id %))
(map #(assoc % :group sid :id (random-uuid))))
x (apply min (map :x shapes))
y (apply min (map :y shapes))
x' (apply max (map (fn [{:keys [x width]}] (+ x width)) shapes))
y' (apply max (map (fn [{:keys [y height]}] (+ y height)) shapes))
width (- x' x)
height (- y' y)
pid (get-in state [:workspace :page])
shapes (map (fn [item]
(assoc item
:x (- (:x item) x)
:y (- (:y item) y))) shapes)
shape {:type :builtin/group
:items (mapv :id shapes)
:view-box [0 0 width height]
:page (get-in state [:workspace :page])
:id sid}
props {:x x
:y y
:width width
:height height
:view-box [0 0 width height]}
shape (merge shape props)
shapes-map (reduce #(assoc %1 (:id %2) %2) {} shapes)]
(as-> state $
(update-in $ [:pages-by-id pid :shapes] conj sid)
(assoc-in $ [:shapes-by-id sid] shape)
(update $ :shapes-by-id merge shapes-map))))))
(defn delete-selected (defn delete-selected
"Deselect all and remove all selected shapes." "Deselect all and remove all selected shapes."
[] []