🐛 Fix invalid page name on compv2 migration

This commit is contained in:
Andrey Antukh 2024-03-19 09:15:04 +01:00
parent ab0b3c71a8
commit 126bab3ce4

View file

@ -215,10 +215,15 @@
(update :pages-index update-vals fix-container) (update :pages-index update-vals fix-container)
(d/update-when :components update-vals fix-container)))) (d/update-when :components update-vals fix-container))))
fix-page-invalid-options fix-invalid-page
(fn [file-data] (fn [file-data]
(letfn [(update-page [page] (letfn [(update-page [page]
(update page :options fix-options)) (-> page
(update :name (fn [name]
(if (nil? name)
"Page"
name)))
(update :options fix-options)))
(fix-background [options] (fix-background [options]
(if (and (contains? options :background) (if (and (contains? options :background)
@ -993,7 +998,7 @@
(-> file-data (-> file-data
(fix-file-data) (fix-file-data)
(fix-page-invalid-options) (fix-invalid-page)
(fix-misc-shape-issues) (fix-misc-shape-issues)
(fix-recent-colors) (fix-recent-colors)
(fix-missing-image-metadata) (fix-missing-image-metadata)