3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-08-03 11:48:32 +02:00
Code Issues Projects Releases Packages Wiki Activity

🐛 Fix positioning on group and ungroup.

Browse source
This commit is contained in:
Andrey Antukh 2020-06-12 11:58:49 +02:00 • committed by Andrés Moya
parent 9ed6d23041
commit 861150ff46
2 changed files with 22 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

7
common/uxbox/common/pages_helpers.cljc
View file

@ -60,6 +60,13 @@
(or (not= (:type shape) :frame)
(= parent-id uuid/zero))))
(defn position-on-parent
[id objects]
(let [obj (get objects id)
pid (:parent-id obj)
prt (get objects pid)]
(d/index-of (:shapes prt) id)))
(defn insert-at-index
[shapes index ids]
(let [[before after] (split-at index shapes)