3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-06-06 12:52:56 +02:00
Code Issues Projects Releases Packages Wiki Activity

🐛 Fixes problem when moving child

Browse source
This commit is contained in:
alonso.torres 2020-04-07 14:33:05 +02:00
parent 185b1f9ee1
commit 20c6ae867b
3 changed files with 29 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

9
frontend/src/uxbox/main/data/workspace.cljs
View file

@ -1502,20 +1502,21 @@
(let [page-id (::page-id state)
objects (get-in state [:workspace-data page-id :objects])
groups-to-adjust (->> ids
(map #(helpers/get-parent % objects))
(mapcat #(reverse (helpers/get-all-parents % objects)))
(map #(get objects %))
(filter #(= (:type %) :group))
(map #(:id %))
distinct)
update-group
(fn [group]
(let [group-objects (map #(get objects %) (:shapes group))
(fn [state group]
(let [objects (get-in state [:workspace-data page-id :objects])
group-objects (map #(get objects %) (:shapes group))
selrect (geom/selection-rect group-objects)]
(merge group (select-keys selrect [:x :y :width :height]))))
reduce-fn
#(update-in %1 [:workspace-data page-id :objects %2] update-group)]
#(update-in %1 [:workspace-data page-id :objects %2] (partial update-group %1))]
(reduce reduce-fn state groups-to-adjust)))