🐛 Fix problem when exporting penpot files

common/src/app/common/data.cljc

@@ -584,6 +584,9 @@
    (assert (string? basename))
    (assert (set? used))
 
+   (if (> (count basename) 1000)
+     ;; We skip generating names for long strings. If the name is too long the regex can hang
+     basename
      (let [[prefix initial] (extract-numeric-suffix basename)]
        (if (and (not prefix-first?)
                 (not (contains? used basename)))
@@ -594,7 +597,7 @@
                              (str prefix "-" counter))]
              (if (contains? used candidate)
                (recur (inc counter))
-             candidate)))))))
+               candidate))))))))
 
 (defn deep-mapm
   "Applies a map function to an associative map and recurses over its children

frontend/src/app/util/import/parser.cljs

@@ -811,7 +811,7 @@
             :attrs)
         image-data (get-svg-data :image node)
         svg-data (or image-data pattern-data)]
-    (:xlink:href svg-data)))
+    (or (:href svg-data) (:xlink:href svg-data))))
 
 (defn get-image-fill
   [node]