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

add debugging output options

Browse source
This commit is contained in:
Gered 2017-04-02 13:20:24 -04:00
parent b7676fcab1
commit 9a1b0d9ed6
2 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/clj_htmltopdf/core.clj
View file

@ -41,6 +41,8 @@
(let [html (read-html-string in)
html-doc (Jsoup/parse html)]
(o/inject-options-into-html! html-doc options)
(if (get-in options [:debug :display-html?])
(println (str html-doc)))
html-doc))
(defn write-pdf!
@ -55,7 +57,7 @@
(defn ->pdf
[in out & [options]]
(let [options (merge o/default-options options)
(let [options (o/get-final-options options)
html-doc (prepare-html in options)]
(configure-logging! options)
(write-pdf! html-doc (o/->base-uri options) out)))

7
src/clj_htmltopdf/options.clj
View file

@ -15,6 +15,13 @@
:orientation :portrait
:margin "1.0in"}})
(defn get-final-options
[options]
(let [final-options (merge default-options options)]
(if (get-in final-options [:debug :display-options?])
(clojure.pprint/pprint final-options))
final-options))
(defn ->base-uri
[options]
(str (:base-uri options)))