🎉 Export to PDF all artboards of one page

exporter/src/app/browser.cljs

@@ -69,12 +69,14 @@
 
 (defn pdf
   ([page] (pdf page nil))
-  ([page {:keys [viewport omit-background? prefer-css-page-size?]
+  ([page {:keys [viewport omit-background? prefer-css-page-size? save-path]
           :or {viewport {}
                omit-background? true
-               prefer-css-page-size? true}}]
+               prefer-css-page-size? true
+               save-path nil}}]
    (let [viewport (d/merge default-viewport viewport)]
-     (.pdf ^js page #js {:width (:width viewport)
+     (.pdf ^js page #js {:path save-path
+                         :width (:width viewport)
                          :height (:height viewport)
                          :scale (:scale viewport)
                          :omitBackground omit-background?

exporter/src/app/http.cljs

@@ -8,13 +8,15 @@
   (:require
    [app.config :as cf]
    [app.http.export :refer [export-handler]]
+   [app.http.export-frames :refer [export-frames-handler]]
    [app.http.impl :as impl]
    [lambdaisland.glogi :as log]
    [promesa.core :as p]
    [reitit.core :as r]))
 
 (def routes
-  [["/export" {:handler export-handler}]])
+  [["/export-frames" {:handler export-frames-handler}]
+   ["/export" {:handler export-handler}]])
 
 (def instance (atom nil))
 

exporter/src/app/http/export_frames.cljs

@@ -0,0 +1,66 @@
+;; This Source Code Form is subject to the terms of the Mozilla Public
+;; License, v. 2.0. If a copy of the MPL was not distributed with this
+;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
+;;
+;; Copyright (c) UXBOX Labs SL
+
+(ns app.http.export-frames
+  (:require
+   ["path" :as path]
+   [app.common.exceptions :as exc :include-macros true]
+   [app.common.spec :as us]
+   [app.renderer.pdf :as rp]
+   [app.util.shell :as sh]
+   [cljs.spec.alpha :as s]
+   [cuerdas.core :as str]
+   [promesa.core :as p]))
+
+(s/def ::name ::us/string)
+(s/def ::file-id ::us/uuid)
+(s/def ::page-id ::us/uuid)
+(s/def ::frame-id ::us/uuid)
+(s/def ::frame-ids (s/coll-of ::frame-id :kind vector?))
+
+(s/def ::handler-params
+  (s/keys :req-un [::file-id ::page-id ::frame-ids]))
+
+(defn- export-frame
+  [tdpath file-id page-id token frame-id]
+  (p/let [spath  (path/join tdpath (str frame-id ".pdf"))
+          result (rp/render {:name (str frame-id)
+                             :suffix ""
+                             :token token
+                             :file-id file-id
+                             :page-id page-id
+                             :object-id frame-id
+                             :scale 1
+                             :save-path spath})]
+    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))
+        (p/then (constantly output-path)))))
+
+(defn- clean-tmp-data
+  [tdpath data]
+  (p/do!
+    (sh/rmdir! tdpath)
+    data))
+
+(defn export-frames-handler
+  [{: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 (-> (p/all  (map (partial export-frame tdpath file-id page-id token) 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)}})))
+

exporter/src/app/renderer/pdf.cljs

@@ -26,7 +26,7 @@
      :value token}))
 
 (defn pdf-from-object
-  [{:keys [file-id page-id object-id token scale type]}]
+  [{:keys [file-id page-id object-id token scale type save-path]}]
   (letfn [(handle [page]
             (let [path   (str "/render-object/" file-id "/" page-id "/" object-id)
                   uri    (-> (u/uri (cf/get :public-uri))
@@ -39,10 +39,12 @@
             (log/info :uri uri)
             (let [options {:cookie cookie}]
               (p/do!
-               (bw/configure-page! page options)
-               (bw/navigate! page uri)
-               (bw/wait-for page "#screenshot")
-               (bw/pdf page))))]
+                (bw/configure-page! page options)
+                (bw/navigate! page uri)
+                (bw/wait-for page "#screenshot")
+                (if save-path
+                  (bw/pdf page {:save-path save-path})
+                  (bw/pdf page)))))]
 
     (bw/exec! handle)))
 
@@ -54,10 +56,11 @@
 (s/def ::scale ::us/number)
 (s/def ::token ::us/string)
 (s/def ::filename ::us/string)
+(s/def ::save-path ::us/string)
 
 (s/def ::render-params
   (s/keys :req-un [::name ::suffix ::object-id ::page-id ::scale ::token ::file-id]
-          :opt-un [::filename]))
+          :opt-un [::filename ::save-path]))
 
 (defn render
   [params]