Merge pull request #3701 from penpot/hiru-migrate-root-shapes

🔧 Add migration to set root shapes as valid objects

common/src/app/common/files/defaults.cljc

@@ -6,4 +6,4 @@
 
 (ns app.common.files.defaults)
 
-(def version 32)
+(def version 33)

common/src/app/common/files/migrations.cljc

@@ -608,3 +608,19 @@
     (-> data
         (update :pages-index update-vals update-container)
         (update :components update-vals update-container))))
+
+(defmethod migrate 33
+  [data]
+  (letfn [(update-object [object]
+             ; Ensure all root objects are well formed shapes.
+             (if (= (:id object) uuid/zero)
+               (-> object
+                   (assoc :parent-id uuid/zero
+                          :frame-id uuid/zero)
+                   (cts/setup-shape))
+               object))
+
+          (update-container [container]
+            (update container :objects update-vals update-object))]
+    (-> data
+        (update :pages-index update-vals update-container))))

common/src/app/common/files/validate.cljc

@@ -394,6 +394,7 @@
   (binding [*throw-on-error* throw?
             *errors* (volatile! [])]
     (->> (ctpl/pages-seq (:data file))
+         (filter #(some? (:id %)))
          (run! #(validate-shape uuid/zero file % libraries :throw? throw?)))
 
     (deref *errors*)))

frontend/src/app/main/ui/dashboard/import.cljs

@@ -343,7 +343,6 @@
                        (->> files (filter #(= (:status %) :importing)) count)
                        (:importing-templates @state))
 
-
         warning-files (->> files (filter #(and (= (:status %) :import-finish) (d/not-empty? (:errors %)))) count)
         success-files (->> files (filter #(and (= (:status %) :import-finish) (empty? (:errors %)))) count)
         pending-analysis? (> (->> files (filter #(= (:status %) :analyzing)) count) 0)