gered/clj-htmltopdf
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

add some doc comments and make certain functions private

Browse source
This commit is contained in:
Gered 2017-08-18 09:00:59 -04:00
parent 3320a2b305
commit c4238ecda1
1 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/clj_htmltopdf/core.clj
View file

@ -17,6 +17,8 @@
[org.jsoup.nodes Document])) [org.jsoup.nodes Document]))
(defn ->inline-image (defn ->inline-image
"Reads an image file and encodes it as a base64 string suitable for use in a data url for displaying
inline images in <img> tags or for use in CSS."
[image-file] [image-file]
(try (try
(let [image-file (io/file image-file) (let [image-file (io/file image-file)
@ -47,7 +49,7 @@
out out
(io/output-stream out))) (io/output-stream out)))
(defn configure-logging! (defn- configure-logging!
[options] [options]
(if (:logging? options) (if (:logging? options)
(do (do
@ -56,7 +58,7 @@
(XRLog/setLoggingEnabled true)) (XRLog/setLoggingEnabled true))
(XRLog/setLoggingEnabled false))) (XRLog/setLoggingEnabled false)))
(defn prepare-html (defn- prepare-html
[in options] [in options]
(let [html (read-html-string in) (let [html (read-html-string in)
html-doc (Jsoup/parse html)] html-doc (Jsoup/parse html)]
@ -65,7 +67,7 @@
(println (str html-doc))) (println (str html-doc)))
html-doc)) html-doc))
(defn write-pdf! (defn- write-pdf!
[^Document html-doc options] [^Document html-doc options]
(let [builder (PdfRendererBuilder.) (let [builder (PdfRendererBuilder.)
base-uri (opt/->base-uri options)] base-uri (opt/->base-uri options)]
@ -84,6 +86,10 @@
:renderer renderer}))) :renderer renderer})))
(defn ->pdf (defn ->pdf
"Renders HTML to a PDF document. The HTML to be rendered is provided via the 'in' argument which can be provided as a
file, string, or Hiccup-style HTML. The PDF will be output to the 'out' argument which will be coerced to an
OutputStream (via clojure.java.io/output-stream). The resulting OutputBuffer is also returned when rendering has
finished."
[in out & [options]] [in out & [options]]
(let [options (opt/get-final-options options) (let [options (opt/get-final-options options)
html-doc (prepare-html in options)] html-doc (prepare-html in options)]