github/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-04-28 12:48:31 +00:00
Code Issues Packages Projects Releases Wiki Activity

🐛 Fix pdf export

Browse Source
This commit is contained in:
Alejandro Alonso 2026-02-04 13:58:03 +01:00
parent 24c8fc484f
commit 49ea9a30a9
1 changed files with 64 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
exporter/src/app/renderer/pdf.cljs
View File

@ -38,6 +38,68 @@
(assoc :path "/render.html")
(assoc :query (u/map->query-string params)))))
(wait-for-render [page dom]
(p/loop [attempt 0]
(p/let [size (bw/eval! dom
(fn [elem]
(let [rect (.getBoundingClientRect ^js elem)]
#js {:width (.-width rect)
:height (.-height rect)})))]
(let [width (some-> size (unchecked-get "width"))
height (some-> size (unchecked-get "height"))
ready? (and (number? width) (number? height) (> width 1) (> height 1))
max-attempts 15]
(cond
ready?
true
(< attempt max-attempts)
(p/let [_ (bw/sleep page 200)]
(p/recur (inc attempt)))
:else
false)))))
(sync-page-size! [dom]
(bw/eval! dom
(fn [elem]
(let [attr-w (.getAttribute ^js elem "width")
attr-h (.getAttribute ^js elem "height")
rect (.getBoundingClientRect ^js elem)
attr-width (when (and attr-w (not= attr-w ""))
(js/parseFloat attr-w))
attr-height (when (and attr-h (not= attr-h ""))
(js/parseFloat attr-h))
rect-width (.-width rect)
rect-height (.-height rect)
width (js/Math.max (or attr-width 0) rect-width)
height (js/Math.max (or attr-height 0) rect-height)
width-px (str width "px")
height-px (str height "px")
root (.-documentElement js/document)
body (.-body js/document)
app (.querySelector js/document "#app")
head (.-head js/document)
style-id "penpot-pdf-page-size"
style-node (or (.getElementById js/document style-id)
(let [node (.createElement js/document "style")]
(set! (.-id node) style-id)
(.appendChild head node)
node))
css (str "@page { size: " width-px " " height-px "; margin: 0; }\n"
"html, body, #app { margin: 0; padding: 0; }\n")]
(set! (.-textContent style-node) css)
(set! (.-width (.-style root)) width-px)
(set! (.-height (.-style root)) height-px)
(set! (.-overflow (.-style root)) "visible")
(set! (.-width (.-style body)) width-px)
(set! (.-height (.-style body)) height-px)
(set! (.-overflow (.-style body)) "visible")
(when app
(set! (.-width (.-style app)) width-px)
(set! (.-height (.-style app)) height-px)
(set! (.-overflow (.-style app)) "visible"))))))
(render-object [page base-uri {:keys [id] :as object}]
(p/let [uri (prepare-uri base-uri id)
path (sh/tempfile :prefix "penpot.tmp.pdf." :suffix (mime/get-extension type))]
@ -45,6 +107,8 @@
(bw/nav! page uri)
(p/let [dom (bw/select page (dm/str "#screenshot-" id))]
(bw/wait-for dom)
(wait-for-render page dom)
(sync-page-size! dom)
(bw/screenshot dom {:full-page? true})
(bw/sleep page 2000) ; the good old fix with sleep
(bw/pdf page {:path path})