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

✨ Change tool for exporting artboards and fix some issues

Browse source
This commit is contained in:
Andrés Moya 2021-11-05 13:08:28 +01:00 • committed by Andrey Antukh
parent c57219a356
commit 4962e45bd9
6 changed files with 46 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

32
exporter/src/app/http/export_frames.cljs
View file

@ -35,13 +35,13 @@
:object-id frame-id
:scale 1
:save-path spath})]
(cons spath spaths)))
(conj spaths spath)))
(defn- join-files
[tdpath file-id paths]
(let [output-path (path/join tdpath (str file-id ".pdf"))
paths-str (str/join " " paths)]
(-> (sh/run-cmd! (str "gs -dBATCH -dNOPAUSE -q -sDEVICE=pdfwrite -sOutputFile='" output-path "' " paths-str))
(-> (sh/run-cmd! (str "pdfunite " paths-str " " output-path))
(p/then (constantly output-path)))))
(defn- clean-tmp-data
@ -54,16 +54,20 @@
[{:keys [params cookies] :as request}]
(let [{:keys [name file-id page-id frame-ids]} (us/conform ::handler-params params)
token (.get ^js cookies "auth-token")]
(p/let [tdpath (sh/create-tmpdir! "pdfexport-")
data (-> (reduce (fn [promis frame-id]
(p/then promis (partial export-frame tdpath file-id page-id token frame-id)))
(p/future [])
frame-ids)
(p/then (partial join-files tdpath file-id))
(p/then sh/read-file)
(p/then (partial clean-tmp-data tdpath)))]
{:status 200
:body data
:headers {"content-type" "application/pdf"
"content-length" (.-length data)}})))
(if (seq frame-ids)
(p/let [tdpath (sh/create-tmpdir! "pdfexport-")
data (-> (reduce (fn [promis frame-id]
(p/then promis (partial export-frame tdpath file-id page-id token frame-id)))
(p/future [])
(reverse frame-ids))
(p/then (partial join-files tdpath file-id))
(p/then sh/read-file)
(p/then (partial clean-tmp-data tdpath)))]
{:status 200
:body data
:headers {"content-type" "application/pdf"
"content-length" (.-length data)}})
{:status 204
:body ""
:headers {"content-type" "text/plain"}})))