🐛 Fix problem with selected colors and texts

This commit is contained in:
alonso.torres 2023-03-22 11:58:33 +01:00
parent c851f60de4
commit 2fef90e7eb
2 changed files with 3 additions and 1 deletions

View file

@ -339,7 +339,8 @@
(defn change-text-color
[old-color new-color index node]
(let [fills (map #(dissoc % :fill-color-ref-id :fill-color-ref-file) (:fills node))
parsed-color (d/without-nils (color-att->text old-color))
parsed-color (-> (d/without-nils (color-att->text old-color))
(dissoc :fill-color-ref-id :fill-color-ref-file))
parsed-new-color (d/without-nils (color-att->text new-color))
has-color? (d/index-of fills parsed-color)]
(cond-> node