🐛 Fixes issues with export

exporter/src/app/http/export.cljs

@@ -95,8 +95,8 @@
 (defn- find-filename-candidate
   [params used]
   (loop [index 0]
-    (let [candidate (str (str/slug (:name params))
-                         (str/trim (str/blank? (:suffix params "")))
+    (let [candidate (str (:name params)
+                         (:suffix params "")
                          (when (pos? index)
                            (str "-" (inc index)))
                          (case (:type params)

exporter/src/app/http/export_bitmap.cljs

@@ -62,8 +62,8 @@
   (p/let [content (screenshot-object browser params)]
     {:content content
      :filename (or (:filename params)
-                   (str (str/slug (:name params))
-                        (str/trim (:suffix params ""))
+                   (str (:name params)
+                        (:suffix params "")
                         (case (:type params)
                           :png ".png"
                           :jpeg ".jpg")))

exporter/src/app/http/export_svg.cljs

@@ -261,8 +261,8 @@
   (p/let [content (render-object browser params)]
     {:content content
      :filename (or (:filename params)
-                   (str (str/slug (:name params))
-                        (str/trim (:suffix params ""))
+                   (str (:name params)
+                        (:suffix params "")
                         ".svg"))
      :length (alength content)
      :mime-type "image/svg+xml"}))