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

🐛 Set proper order on comp-v2 migration fixes

Browse source
This commit is contained in:
Andrey Antukh 2024-01-30 09:52:48 +01:00
parent c4ee88dc66
commit 036bf84ecd
1 changed files with 5 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -168,12 +168,10 @@
fix-bad-children fix-bad-children
(fn [file-data] (fn [file-data]
;; Remove any child that does not exist. And also remove duplicated children. ;; Remove any child that does not exist. And also remove duplicated children.
(letfn [(fix-container (letfn [(fix-container [container]
[container]
(d/update-when container :objects update-vals (partial fix-shape container))) (d/update-when container :objects update-vals (partial fix-shape container)))
(fix-shape (fix-shape [container shape]
[container shape]
(let [objects (:objects container)] (let [objects (:objects container)]
(d/update-when shape :shapes (d/update-when shape :shapes
(fn [shapes] (fn [shapes]
@ -241,7 +239,7 @@
(d/update-when :colors fix-colors-library) (d/update-when :colors fix-colors-library)
(d/update-when :typographies dissoc nil)))) (d/update-when :typographies dissoc nil))))
delete-big-geometry-shapes fix-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
;; with huge geometries that did not validate the ;; with huge geometries that did not validate the
@ -777,14 +775,14 @@
(-> file-data (-> file-data
(fix-file-data) (fix-file-data)
(fix-page-invalid-options) (fix-page-invalid-options)
(fix-bad-children)
(fix-misc-shape-issues) (fix-misc-shape-issues)
(fix-recent-colors) (fix-recent-colors)
(fix-missing-image-metadata) (fix-missing-image-metadata)
(fix-text-shapes-converted-to-path) (fix-text-shapes-converted-to-path)
(fix-broken-paths) (fix-broken-paths)
(delete-big-geometry-shapes) (fix-big-geometry-shapes)
(fix-completly-broken-shapes) (fix-completly-broken-shapes)
(fix-bad-children)
(fix-broken-parents) (fix-broken-parents)
(fix-orphan-shapes) (fix-orphan-shapes)
(fix-orphan-copies) (fix-orphan-copies)