3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-05-29 04:26:10 +02:00
Code Issues Projects Releases Packages Wiki Activity

🐛 Fix invalid values on colors and typografies on fdata

Browse source
This commit is contained in:
Andrey Antukh 2024-01-25 16:33:53 +01:00
parent faa4467b02
commit a2a61e99a7
1 changed files with 12 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -198,6 +198,15 @@
(update file-data :pages-index update-vals update-page))) (update file-data :pages-index update-vals update-page)))
;; Sometimes we found that the file has issues in the internal
;; data structure of the local library; this function tries to
;; fix that issues.
fix-file-data
(fn [file-data]
(-> file-data
(d/update-when :colors dissoc nil)
(d/update-when :typographies dissoc nil)))
delete-big-geometry-shapes delete-big-geometry-shapes
(fn [file-data] (fn [file-data]
;; At some point in time, we had a bug that generated shapes ;; At some point in time, we had a bug that generated shapes
@ -205,12 +214,10 @@
;; schema. Since we don't have a way to fix those shapes, we ;; schema. Since we don't have a way to fix those shapes, we
;; simply proceed to delete it. We ignore path type shapes ;; simply proceed to delete it. We ignore path type shapes
;; because they have not been affected by the bug. ;; because they have not been affected by the bug.
(letfn [(fix-container (letfn [(fix-container [container]
[container]
(d/update-when container :objects #(reduce-kv fix-shape % %))) (d/update-when container :objects #(reduce-kv fix-shape % %)))
(fix-shape (fix-shape [objects id shape]
[objects id shape]
(cond (cond
(or (cfh/path-shape? shape) (or (cfh/path-shape? shape)
(cfh/bool-shape? shape)) (cfh/bool-shape? shape))
@ -649,6 +656,7 @@
(update :pages-index update-vals fix-container))))] (update :pages-index update-vals fix-container))))]
(-> file-data (-> file-data
(fix-file-data)
(fix-page-invalid-options) (fix-page-invalid-options)
(fix-bad-children) (fix-bad-children)
(fix-misc-shape-issues) (fix-misc-shape-issues)