Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-09 00:28:20 -05:00
Code Issues Activity

🐛 Fix broken fills and strokes on comp-v2 migration

Browse source
This commit is contained in:
Andrey Antukh 2024-01-18 11:56:57 +01:00
parent 6ad6e6f856
commit 166d2b7b68
1 changed files with 14 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
backend/src/app/features/components_v2.clj
View file

@ -105,6 +105,9 @@
or that are the result of old bugs." or that are the result of old bugs."
[file-data libraries] [file-data libraries]
(let [detached-ids (volatile! #{}) (let [detached-ids (volatile! #{})
valid-color? (sm/validator ::ctc/recent-color)
valid-fill? (sm/validator ::cts/fill)
valid-stroke? (sm/validator ::cts/stroke)
detach-shape detach-shape
(fn [container shape] (fn [container shape]
@ -115,7 +118,6 @@
(vswap! detached-ids conj (:id shape))) (vswap! detached-ids conj (:id shape)))
(ctk/detach-shape shape))) (ctk/detach-shape shape)))
fix-missing-image-metadata fix-missing-image-metadata
(fn [file-data] (fn [file-data]
(let [update-object (let [update-object
@ -152,6 +154,14 @@
0 0
gap))) gap)))
;; Fix broken fills
(seq (:fills shape))
(update :fills (fn [fills] (filterv valid-fill? fills)))
;; Fix broken strokes
(seq (:strokes shape))
(update :strokes (fn [strokes] (filterv valid-stroke? strokes)))
;; Fix some broken layout related attrs, probably ;; Fix some broken layout related attrs, probably
;; of copypaste on flex layout betatest period ;; of copypaste on flex layout betatest period
(true? (:layout shape)) (true? (:layout shape))
@ -171,10 +181,9 @@
fix-recent-colors fix-recent-colors
(fn [file-data] (fn [file-data]
(let [valid-color? (sm/validator ::ctc/recent-color)] (d/update-when file-data :recent-colors
(d/update-when file-data :recent-colors (fn [colors]
(fn [colors] (filterv valid-color? colors))))
(filterv valid-color? colors)))))
fix-orphan-shapes fix-orphan-shapes
(fn [file-data] (fn [file-data]