3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-06-08 21:21:43 +02:00
Code Issues Projects Releases Packages Wiki Activity

✨ Ensure we don't leave :components with nil on file data

Browse source 
after aplying migrations
This commit is contained in:
Andrey Antukh 2025-04-24 08:53:30 +02:00
parent 80308ceafa
commit ab5e01e54a
1 changed files with 33 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

66
common/src/app/common/files/migrations.cljc
View file

@ -218,7 +218,7 @@
(-> data (-> data
(update :pages-index update-vals update-container) (update :pages-index update-vals update-container)
(update :components update-vals update-container)))) (d/update-when :components update-vals update-container))))
;; Remove interactions pointing to deleted frames ;; Remove interactions pointing to deleted frames
(defmethod migrate-data "legacy-7" (defmethod migrate-data "legacy-7"
@ -272,7 +272,7 @@
(-> data (-> data
(update :pages-index update-vals clean-container) (update :pages-index update-vals clean-container)
(update :components update-vals clean-container)))) (d/update-when :components update-vals clean-container))))
(defmethod migrate-data "legacy-9" (defmethod migrate-data "legacy-9"
[data _] [data _]
@ -383,7 +383,7 @@
(-> data (-> data
(update :pages-index update-vals update-container) (update :pages-index update-vals update-container)
(update :components update-vals update-container)))) (d/update-when :components update-vals update-container))))
(defmethod migrate-data "legacy-16" (defmethod migrate-data "legacy-16"
[data _] [data _]
@ -429,7 +429,7 @@
(-> data (-> data
(update :pages-index update-vals update-container) (update :pages-index update-vals update-container)
(update :components update-vals update-container)))) (d/update-when :components update-vals update-container))))
(defmethod migrate-data "legacy-17" (defmethod migrate-data "legacy-17"
[data _] [data _]
@ -458,7 +458,7 @@
(-> data (-> data
(update :pages-index update-vals update-container) (update :pages-index update-vals update-container)
(update :components update-vals update-container)))) (d/update-when :components update-vals update-container))))
;; Remove position-data to solve a bug with the text positioning ;; Remove position-data to solve a bug with the text positioning
(defmethod migrate-data "legacy-18" (defmethod migrate-data "legacy-18"
@ -473,7 +473,7 @@
(-> data (-> data
(update :pages-index update-vals update-container) (update :pages-index update-vals update-container)
(update :components update-vals update-container)))) (d/update-when :components update-vals update-container))))
(defmethod migrate-data "legacy-19" (defmethod migrate-data "legacy-19"
[data _] [data _]
@ -489,7 +489,7 @@
(-> data (-> data
(update :pages-index update-vals update-container) (update :pages-index update-vals update-container)
(update :components update-vals update-container)))) (d/update-when :components update-vals update-container))))
(defmethod migrate-data "legacy-25" (defmethod migrate-data "legacy-25"
[data _] [data _]
@ -504,7 +504,7 @@
(d/update-when container :objects update-vals update-object))] (d/update-when container :objects update-vals update-object))]
(-> data (-> data
(update :pages-index update-vals update-container) (update :pages-index update-vals update-container)
(update :components update-vals update-container)))) (d/update-when :components update-vals update-container))))
(defmethod migrate-data "legacy-26" (defmethod migrate-data "legacy-26"
[data _] [data _]
@ -521,7 +521,7 @@
(-> data (-> data
(update :pages-index update-vals update-container) (update :pages-index update-vals update-container)
(update :components update-vals update-container)))) (d/update-when :components update-vals update-container))))
(defmethod migrate-data "legacy-27" (defmethod migrate-data "legacy-27"
[data _] [data _]
@ -552,7 +552,7 @@
(-> data (-> data
(update :pages-index update-vals update-container) (update :pages-index update-vals update-container)
(update :components update-vals update-container)))) (d/update-when :components update-vals update-container))))
(defmethod migrate-data "legacy-28" (defmethod migrate-data "legacy-28"
[data _] [data _]
@ -578,7 +578,7 @@
(-> data (-> data
(update :pages-index update-vals update-container) (update :pages-index update-vals update-container)
(update :components update-vals update-container)))) (d/update-when :components update-vals update-container))))
(defmethod migrate-data "legacy-29" (defmethod migrate-data "legacy-29"
[data _] [data _]
@ -613,7 +613,7 @@
(-> data (-> data
(update :pages-index update-vals update-container) (update :pages-index update-vals update-container)
(update :components update-vals update-container)))) (d/update-when :components update-vals update-container))))
(defmethod migrate-data "legacy-31" (defmethod migrate-data "legacy-31"
[data _] [data _]
@ -627,7 +627,7 @@
(d/update-when container :objects update-vals update-object))] (d/update-when container :objects update-vals update-object))]
(-> data (-> data
(update :pages-index update-vals update-container) (update :pages-index update-vals update-container)
(update :components update-vals update-container)))) (d/update-when :components update-vals update-container))))
(defmethod migrate-data "legacy-32" (defmethod migrate-data "legacy-32"
[data _] [data _]
@ -646,7 +646,7 @@
(-> data (-> data
(update :pages-index update-vals update-container) (update :pages-index update-vals update-container)
(update :components update-vals update-container)))) (d/update-when :components update-vals update-container))))
(defmethod migrate-data "legacy-33" (defmethod migrate-data "legacy-33"
[data _] [data _]
@ -679,7 +679,7 @@
(d/update-when container :objects update-vals update-object))] (d/update-when container :objects update-vals update-object))]
(-> data (-> data
(update :pages-index update-vals update-container) (update :pages-index update-vals update-container)
(update :components update-vals update-container)))) (d/update-when :components update-vals update-container))))
(defmethod migrate-data "legacy-36" (defmethod migrate-data "legacy-36"
[data _] [data _]
@ -690,7 +690,7 @@
objects))))] objects))))]
(-> data (-> data
(update :pages-index update-vals update-container) (update :pages-index update-vals update-container)
(update :components update-vals update-container)))) (d/update-when :components update-vals update-container))))
(defmethod migrate-data "legacy-37" (defmethod migrate-data "legacy-37"
[data _] [data _]
@ -722,7 +722,7 @@
(-> data (-> data
(update :pages-index update-vals update-container) (update :pages-index update-vals update-container)
(update :components update-vals update-container)))) (d/update-when :components update-vals update-container))))
(defmethod migrate-data "legacy-39" (defmethod migrate-data "legacy-39"
[data _] [data _]
@ -744,7 +744,7 @@
(-> data (-> data
(update :pages-index update-vals update-container) (update :pages-index update-vals update-container)
(update :components update-vals update-container)))) (d/update-when :components update-vals update-container))))
(defmethod migrate-data "legacy-40" (defmethod migrate-data "legacy-40"
[data _] [data _]
@ -768,7 +768,7 @@
(-> data (-> data
(update :pages-index update-vals update-container) (update :pages-index update-vals update-container)
(update :components update-vals update-container)))) (d/update-when :components update-vals update-container))))
(defmethod migrate-data "legacy-41" (defmethod migrate-data "legacy-41"
[data _] [data _]
@ -801,7 +801,7 @@
(-> data (-> data
(update :pages-index update-vals update-container) (update :pages-index update-vals update-container)
(update :components update-vals update-container)))) (d/update-when :components update-vals update-container))))
(defmethod migrate-data "legacy-42" (defmethod migrate-data "legacy-42"
[data _] [data _]
@ -818,7 +818,7 @@
(-> data (-> data
(update :pages-index update-vals update-container) (update :pages-index update-vals update-container)
(update :components update-vals update-container)))) (d/update-when :components update-vals update-container))))
(def ^:private valid-fill? (def ^:private valid-fill?
(sm/lazy-validator ::cts/fill)) (sm/lazy-validator ::cts/fill))
@ -847,7 +847,7 @@
(-> data (-> data
(update :pages-index update-vals update-container) (update :pages-index update-vals update-container)
(update :components update-vals update-container)))) (d/update-when :components update-vals update-container))))
(defmethod migrate-data "legacy-44" (defmethod migrate-data "legacy-44"
[data _] [data _]
@ -867,7 +867,7 @@
(d/update-when container :objects update-vals update-object))] (d/update-when container :objects update-vals update-object))]
(-> data (-> data
(update :pages-index update-vals update-container) (update :pages-index update-vals update-container)
(update :components update-vals update-container)))) (d/update-when :components update-vals update-container))))
(defmethod migrate-data "legacy-45" (defmethod migrate-data "legacy-45"
[data _] [data _]
@ -893,7 +893,7 @@
(d/update-when container :objects update-vals update-object))] (d/update-when container :objects update-vals update-object))]
(-> data (-> data
(update :pages-index update-vals update-container) (update :pages-index update-vals update-container)
(update :components update-vals update-container)))) (d/update-when :components update-vals update-container))))
(defmethod migrate-data "legacy-47" (defmethod migrate-data "legacy-47"
[data _] [data _]
@ -997,7 +997,7 @@
(-> data (-> data
(update :pages-index update-vals update-container) (update :pages-index update-vals update-container)
(update :components update-vals update-container)))) (d/update-when :components update-vals update-container))))
(def ^:private valid-color? (def ^:private valid-color?
(sm/lazy-validator ::ctc/color)) (sm/lazy-validator ::ctc/color))
@ -1043,7 +1043,7 @@
(-> data (-> data
(update :pages-index update-vals update-container) (update :pages-index update-vals update-container)
(update :components update-vals update-container)))) (d/update-when :components update-vals update-container))))
;; This migration moves page options to the page level ;; This migration moves page options to the page level
(defmethod migrate-data "legacy-55" (defmethod migrate-data "legacy-55"
@ -1099,7 +1099,7 @@
(-> data (-> data
(update :pages-index update-vals update-container) (update :pages-index update-vals update-container)
(update :components update-vals update-container)))) (d/update-when :components update-vals update-container))))
(defmethod migrate-data "legacy-57" (defmethod migrate-data "legacy-57"
@ -1141,7 +1141,7 @@
(-> data (-> data
(update :pages-index update-vals update-container) (update :pages-index update-vals update-container)
(update :components update-vals update-container)))) (d/update-when :components update-vals update-container))))
(defmethod migrate-data "legacy-62" (defmethod migrate-data "legacy-62"
[data _] [data _]
@ -1174,7 +1174,7 @@
;; so the relevant objects are inside the component ;; so the relevant objects are inside the component
(d/update-when component :objects remove-cycles))] (d/update-when component :objects remove-cycles))]
(update data :components update-vals update-component))) (d/update-when data :components update-vals update-component)))
(defmethod migrate-data "legacy-65" (defmethod migrate-data "legacy-65"
[data _] [data _]
@ -1189,7 +1189,7 @@
(-> data (-> data
(update-object) (update-object)
(d/update-when :pages-index update-vals update-page) (update :pages-index update-vals update-page)
(d/update-when :colors update-vals update-object) (d/update-when :colors update-vals update-object)
(d/update-when :typographies update-vals update-object) (d/update-when :typographies update-vals update-object)
(d/update-when :components update-vals update-object)))) (d/update-when :components update-vals update-object))))
@ -1210,7 +1210,7 @@
(-> data (-> data
(update :pages-index d/update-vals update-container) (update :pages-index d/update-vals update-container)
(update :components d/update-vals update-container)))) (d/update-when :components d/update-vals update-container))))
(defmethod migrate-data "legacy-67" (defmethod migrate-data "legacy-67"
[data _] [data _]
@ -1222,7 +1222,7 @@
(-> data (-> data
(update :pages-index d/update-vals update-container) (update :pages-index d/update-vals update-container)
(update :components d/update-vals update-container)))) (d/update-when :components d/update-vals update-container))))
(defmethod migrate-data "0001-remove-tokens-from-groups" (defmethod migrate-data "0001-remove-tokens-from-groups"
[data _] [data _]
@ -1262,7 +1262,7 @@
(-> data (-> data
(update :pages-index d/update-vals update-container) (update :pages-index d/update-vals update-container)
(update :components d/update-vals update-container)))) (d/update-when :components d/update-vals update-container))))
(def available-migrations (def available-migrations
(into (d/ordered-set) (into (d/ordered-set)