Fix #1391: support loading hiccup.page from source

This commit is contained in:
Michiel Borkent 2022-10-12 12:59:37 +02:00
parent 682f8514fb
commit ed22bb573b

View file

@ -64,7 +64,8 @@
(def hiccup-util-namespace (def hiccup-util-namespace
{'*html-mode* html-mode {'*html-mode* html-mode
'*escape-strings?* escape-strings? '*escape-strings?* escape-strings?
'raw-string (copy-var util/raw-string uns)}) 'raw-string (copy-var util/raw-string uns)
'to-uri (copy-var util/to-uri uns)})
(defn render-html [& contents] (defn render-html [& contents]
(binding [util/*html-mode* @html-mode (binding [util/*html-mode* @html-mode