diff --git a/src/clj_htmltopdf/options.clj b/src/clj_htmltopdf/options.clj index e061a41..5588441 100644 --- a/src/clj_htmltopdf/options.clj +++ b/src/clj_htmltopdf/options.clj @@ -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 diff --git a/test-resources/FirstTimeWriting-DOy8d.ttf b/test-resources/FirstTimeWriting-DOy8d.ttf new file mode 100644 index 0000000..4aead4e Binary files /dev/null and b/test-resources/FirstTimeWriting-DOy8d.ttf differ diff --git a/test/clj_htmltopdf/test/pdfdoc_manual_tests.clj b/test/clj_htmltopdf/test/pdfdoc_manual_tests.clj index 6017a0e..3b7f633 100644 --- a/test/clj_htmltopdf/test/pdfdoc_manual_tests.clj +++ b/test/clj_htmltopdf/test/pdfdoc_manual_tests.clj @@ -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}})))