github/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-09-14 16:09:01 +00:00
Code Issues Packages Projects Releases Wiki Activity

🐛 Fix incompatibilities of old file migrations with new code

Browse Source
This commit is contained in:
Andrey Antukh 2024-01-29 15:25:27 +01:00
parent 04be6b13be
commit 295d9568c8
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
common/src/app/common/files/migrations.cljc
View File

@ -109,11 +109,14 @@
(assoc :points (grc/rect->points selrect)))))) (assoc :points (grc/rect->points selrect))))))
(fix-empty-points [shape] (fix-empty-points [shape]
(let [shape (cond-> shape (if (empty? (:points shape))
(empty? (:selrect shape)) (cts/setup-rect))] (-> shape
(cond-> shape (update :selrect (fn [selrect]
(empty? (:points shape)) (if (map? selrect)
(assoc :points (grc/rect->points (:selrect shape)))))) (grc/make-rect selrect)
selrect)))
(cts/setup-shape))
shape))
(update-object [object] (update-object [object]
(cond-> object (cond-> object
@ -857,4 +860,4 @@
(update-container [container] (update-container [container]
(d/update-when container :objects update-vals fix-shape))] (d/update-when container :objects update-vals fix-shape))]
(-> data (-> data
(update :pages-index update-vals update-container)))) (update :pages-index update-vals update-container))))