0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-10 09:08:31 -05:00

🐛 Fixing select color for stroke from palette

This commit is contained in:
Alejandro Alonso 2022-03-10 16:34:55 +01:00
parent 2bb8c535bd
commit 553c0e6d6a

View file

@ -263,7 +263,17 @@
attrs (merge attrs color-attrs)]
(rx/of (dch/update-shapes ids (fn [shape]
(assoc-in shape [:strokes index] (merge (get-in shape [:strokes index]) attrs)))))))))
(let [new-attrs (merge (get-in shape [:strokes index]) attrs)
new-attrs (cond-> new-attrs
(not (contains? new-attrs :stroke-width))
(assoc :stroke-width 1)
(not (contains? new-attrs :stroke-style))
(assoc :stroke-style :solid)
(not (contains? new-attrs :stroke-alignment))
(assoc :stroke-alignment :center))]
(assoc-in shape [:strokes index] new-attrs)))))))))
(defn add-stroke
[ids stroke]