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

add support for setting pdf properties like title, subject, author, etc

Browse source
This commit is contained in:
Gered 2017-04-02 16:02:30 -04:00
parent 78979fd747
commit 75cf36f0af
1 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
src/clj_htmltopdf/options.clj
View file

@ -24,6 +24,12 @@
(.attr element "rel" "stylesheet") (.attr element "rel" "stylesheet")
(.attr element "href" (str href)))) (.attr element "href" (str href))))
(defn append-meta-tag!
^Element [^Element parent name content]
(let [element (.appendElement parent "meta")]
(.attr element "name" (str name))
(.attr element "content" (str content))))
(def default-options (def default-options
{:logging? false {:logging? false
:base-uri "" :base-uri ""
@ -126,10 +132,19 @@
(sequential? additional-styles) (append-stylesheet-link-tags! parent additional-styles) (sequential? additional-styles) (append-stylesheet-link-tags! parent additional-styles)
(string? additional-styles) (append-stylesheet-link-tags! parent [additional-styles])))) (string? additional-styles) (append-stylesheet-link-tags! parent [additional-styles]))))
(defn append-doc-meta-tags!
[^Element parent options]
(let [{:keys [author keywords subject title]} (:doc options)]
(if author (append-meta-tag! parent "author" author))
(if keywords (append-meta-tag! parent "keywords" keywords))
(if subject (append-meta-tag! parent "subject" subject))
(if title (append-meta-tag! parent "title" title))))
(defn inject-options-into-html! (defn inject-options-into-html!
[^Document doc options] [^Document doc options]
(let [head-tag (-> doc (.select "head") (.first)) (let [head-tag (-> doc (.select "head") (.first))
styles (:styles options)] styles (:styles options)]
(if (:doc options) (append-doc-meta-tags! head-tag options))
(if (:page options) (append-style-tag! head-tag (page-options->css (:page options)))) (if (:page options) (append-style-tag! head-tag (page-options->css (:page options))))
(cond (cond
(sequential? styles) (append-stylesheet-link-tags! head-tag styles) (sequential? styles) (append-stylesheet-link-tags! head-tag styles)