3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-06-04 16:31:39 +02:00
Code Issues Projects Releases Packages Wiki Activity

🐛 Fixes issues with export

Browse source
This commit is contained in:
alonso.torres 2021-01-28 18:06:44 +01:00
parent 41ec622e26
commit 3faa5b4a11
7 changed files with 36 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

4
exporter/src/app/http/export.cljs
View file

@ -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)

4
exporter/src/app/http/export_bitmap.cljs
View file

@ -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")))

4
exporter/src/app/http/export_svg.cljs
View file

@ -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"}))