0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-10 00:58:26 -05:00

Merge pull request #4230 from penpot/azazeln28-component-layers-incorrectly-relocated

🐛 Component layers are incorrectly relocated on drag'n'drop
This commit is contained in:
Alejandro 2024-03-08 09:48:49 +01:00 committed by GitHub
commit e25c1e987c
No known key found for this signature in database
GPG key ID: B5690EEEBB952194

View file

@ -262,29 +262,32 @@
(mf/use-fn
(mf/deps id index objects expanded? selected)
(fn [side _data]
(let [shape (get objects id)
(let [single? (= (count selected) 1)
same? (and single? (= (first selected) id))]
(when-not same?
(let [shape (get objects id)
parent-id
(cond
(= side :center)
id
parent-id
(cond
(= side :center)
id
(and expanded? (= side :bot) (d/not-empty? (:shapes shape)))
id
(and expanded? (= side :bot) (d/not-empty? (:shapes shape)))
id
:else
(cfh/get-parent-id objects id))
:else
(cfh/get-parent-id objects id))
[parent-id _] (ctn/find-valid-parent-and-frame-ids parent-id objects (map #(get objects %) selected))
[parent-id _] (ctn/find-valid-parent-and-frame-ids parent-id objects (map #(get objects %) selected))
parent (get objects parent-id)
parent (get objects parent-id)
to-index (cond
(= side :center) 0
(and expanded? (= side :bot) (d/not-empty? (:shapes shape))) (count (:shapes parent))
(= side :top) (inc index)
:else index)]
(st/emit! (dw/relocate-selected-shapes parent-id to-index)))))
to-index (cond
(= side :center) 0
(and expanded? (= side :bot) (d/not-empty? (:shapes shape))) (count (:shapes parent))
(= side :top) (inc index)
:else index)]
(st/emit! (dw/relocate-selected-shapes parent-id to-index)))))))
on-hold
(mf/use-fn