johanels/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-12-11 22:14:05 +01:00
Code Issues Actions 9 Packages Projects Releases Wiki Activity

🐛 Fix corner case when selecting component to switch (#6350)
Some checks are pending
Commit Message Check / Check Commit Message (push) Waiting to run
Details

Browse Source
This commit is contained in:
Pablo Alba
2025-04-24 10:38:32 +02:00
committed by GitHub
parent dfa6c502dc
commit 6fdaad1bf4
1 changed files with 9 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
frontend/src/app/main/ui/workspace/sidebar/options/menus/component.cljs
View File

@@ -319,11 +319,15 @@
(mf/use-fn
(mf/deps shape)
(fn [pos val]
(let [valid-comps (->> variant-components
(remove #(= (:id %) component-id))
(filter #(= (dm/get-in % [:variant-properties pos :value]) val)))
comp (apply min-key #(ctv/distance (:variant-properties component) (:variant-properties %)) valid-comps)]
(st/emit! (dwl/component-swap shape (:component-file shape) (:id comp))))))]
(when (not= val (dm/get-in component [:variant-properties pos :value]))
(let [target-props (-> (:variant-properties component)
(update pos assoc :value val))
valid-comps (->> variant-components
(remove #(= (:id %) component-id))
(filter #(= (dm/get-in % [:variant-properties pos :value]) val)))
nearest-comp (apply min-key #(ctv/distance target-props (:variant-properties %)) valid-comps)]
(when nearest-comp
(st/emit! (dwl/component-swap shape (:component-file shape) (:id nearest-comp))))))))]
[:*
(for [[pos prop] (map vector (range) properties)]