borkdude · borkdude · May 26, 2024 · May 26, 2024
diff --git a/.gitignore b/.gitignore
@@ -1 +1,2 @@
 .nrepl-port
+.cpcache
diff --git a/src/borkdude/html.clj b/src/borkdude/html.clj
@@ -34,7 +34,7 @@
                   (str " " (->attrs ?attrs))
                   "")]
       `(str ~(format "<%s%s>" tag attrs)
-            ~@(map #(list 'html %) children)
+            ~@(map #(list `html %) children)
             ~(format "</%s>" tag)))
     (or (string? form)
         (number? form)) form

diff --git a/test/borkdude/html_test.clj b/test/borkdude/html_test.clj
@@ -0,0 +1,22 @@
+(ns borkdude.html-test
+  (:require
+   [borkdude.html :as sut]
+   [clojure.test :as t]))
+
+(t/deftest ok
+  (t/are [expected form]
+      (= expected (sut/html form))
+
+    "<div></div>"
+    [:div]
+
+    "<a href=\"#\">Hi</a>"
+    [:a {:href "#"} "Hi"]
+
+    ;; XHTML5?
+    "<hr></hr>"
+    [:hr]
+
+    #_#_
+    "<div>&lt;script&gt;</div>"
+    [:div "<script>"]))