mirror of
https://github.com/penpot/penpot.git
synced 2025-03-19 03:01:27 -05:00
🐛 Fix invalid values on colors and typografies on fdata
This commit is contained in:
parent
faa4467b02
commit
a2a61e99a7
1 changed files with 12 additions and 4 deletions
|
@ -198,6 +198,15 @@
|
|||
|
||||
(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
|
||||
(fn [file-data]
|
||||
;; 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
|
||||
;; simply proceed to delete it. We ignore path type shapes
|
||||
;; because they have not been affected by the bug.
|
||||
(letfn [(fix-container
|
||||
[container]
|
||||
(letfn [(fix-container [container]
|
||||
(d/update-when container :objects #(reduce-kv fix-shape % %)))
|
||||
|
||||
(fix-shape
|
||||
[objects id shape]
|
||||
(fix-shape [objects id shape]
|
||||
(cond
|
||||
(or (cfh/path-shape? shape)
|
||||
(cfh/bool-shape? shape))
|
||||
|
@ -649,6 +656,7 @@
|
|||
(update :pages-index update-vals fix-container))))]
|
||||
|
||||
(-> file-data
|
||||
(fix-file-data)
|
||||
(fix-page-invalid-options)
|
||||
(fix-bad-children)
|
||||
(fix-misc-shape-issues)
|
||||
|
|
Loading…
Add table
Reference in a new issue