22 lines
645 B
Clojure
22 lines
645 B
Clojure
|
(ns babashka.impl.hiccup
|
||
|
|
{:no-doc true}
|
||
|
|
(:require [hiccup.core :as hiccup]
|
||
|
|
[hiccup.util :as util]
|
||
|
|
[hiccup2.core :as hiccup2]
|
||
|
|
[sci.core :as sci :refer [copy-var]]))
|
||
|
|
|
||
|
|
(def hns (sci/create-ns 'hiccup.core nil))
|
||
|
|
(def hns2 (sci/create-ns 'hiccup2.core nil))
|
||
|
|
(def uns (sci/create-ns 'hiccup.util nil))
|
||
|
|
|
||
|
|
(def hiccup-namespace
|
||
|
|
{'html (copy-var hiccup/html hns)})
|
||
|
|
|
||
|
|
(def hiccup2-namespace
|
||
|
|
{'html (copy-var hiccup2/html hns2)})
|
||
|
|
|
||
|
|
(def hiccup-util-namespace
|
||
|
|
{'*html-mode* (copy-var util/*html-mode* uns)
|
||
|
|
'*escape-strings?* (copy-var util/*escape-strings?* uns)
|
||
|
|
'raw-string (copy-var util/raw-string uns)})
|