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

Mitigate Vulnerabilities: CVE-2022-36033, CVE-2021-37714, CVE-2021-29425 #8

Closed
Luke1298 wants to merge 5 commits from master into master
pull from: master
merge into: gered:master
Conversation 2 Commits 5 Files changed 5 +20 -1
3 changed files with 20 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit 76bbb1afec - Show all commits

3
src/clj_htmltopdf/options.clj
View file

@ -209,7 +209,8 @@
(fn [{:keys [font-family src]}]
["@font-face"
{:font-family font-family
:src (str "url(\"" (utils/string->url-or-file src) "\")")}])
; TODO: maybe should use whatever the current uri-resolver function is for this ?
:src (str "url(\"" src #_(utils/string->url-or-file src) "\")")}])
fonts)))
(defn build-base-css-styles

BIN
test-resources/FirstTimeWriting-DOy8d.ttf Normal file
View file

Binary file not shown.

18
test/clj_htmltopdf/test/pdfdoc_manual_tests.clj
View file

@ -185,3 +185,21 @@
:page nil
:debug {:display-html? true
:display-options? true}})))
(comment
(let [filename "test-custom-font.pdf"
relative-font-path "FirstTimeWriting-DOy8d.ttf"
absolute-font-path (str (io/resource relative-font-path))]
(println "\n **** " filename " **** \n")
(->pdf
[:div
[:h1 "Custom fonts!"]
[:p {:style "font-family: custom-font-relative"} "This should be styled in a custom font, specified via relative path!"]
[:p {:style "font-family: custom-font-absolute"} "This should also be styled with a custom font, but specified via an absolute path!"]]
filename
{:styles {:fonts [{:font-family "custom-font-relative"
:src relative-font-path}
{:font-family "custom-font-absolute"
:src relative-font-path}]}
:debug {:display-html? true
:display-options? true}})))