borkdude · borkdude · May 31, 2024 · May 31, 2024
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -0,0 +1,5 @@
+# Changelog
+
+## Unreleased
+
+- Fix [#4](https://github.com/borkdude/html/issues/4): support HTML5 by default (void tags)
diff --git a/script/changelog.clj b/script/changelog.clj
@@ -0,0 +1,17 @@
+#!/usr/bin/env bb
+
+(ns changelog
+  (:require [clojure.string :as str]))
+
+(let [changelog (slurp "CHANGELOG.md")
+      replaced (str/replace changelog
+                            #" #(\d+)"
+                            (fn [[_ issue after]]
+                              (format " [#%s](https://github.com/borkdude/html/issues/%s)%s"
+                                      issue issue (str after))))
+      replaced (str/replace replaced
+                            #"@([a-zA-Z0-9-_]+)([, \.)])"
+                            (fn [[_ name after]]
+                              (format "[@%s](https://github.com/%s)%s"
+                                      name name after)))]
+  (spit "CHANGELOG.md" replaced))
diff --git a/src/borkdude/html.cljc b/src/borkdude/html.cljc
@@ -60,6 +60,12 @@
           `(str ~acc ~x (str* ~@xs))))
       acc)))
 
+(def ^{:doc "A list of elements that must be rendered without a closing tag. From hiccup."
+       :private true}
+  void-tags
+  #{"area" "base" "br" "col" "command" "embed" "hr" "img" "input" "keygen" "link"
+    "meta" "param" "source" "track" "wbr"})
+
 (defn reader [form]
   (cond
     (nil? form) nil
@@ -85,7 +91,8 @@
                            [(str "<" tag attrs ">")]
                            ["<" tag " " attrs  ">"]))
                       ~@(map #(list `html %) children)
-                     ~(if omit-tag?
+                      ~(if (or omit-tag?
+                               (contains? void-tags tag))
                         nil
                         (str "</" tag ">"))))))
     (string? form) `(->Html ~(escape-html form))

diff --git a/test/borkdude/html_test.cljc b/test/borkdude/html_test.cljc
@@ -25,10 +25,6 @@
     "<a href=\"#\">Hi</a>"
     (html [:a {:href "#"} "Hi"])
 
-    ;; XHTML5?
-    "<hr></hr>"
-    (html [:hr])
-
     "<div>&lt;script&gt;</div>"
     (html [:div "<script>"])
 
@@ -62,7 +58,9 @@
            (map (fn [i]
                   (html [:li i]))
                 [2 3])])
-    )
+
+    "<div><br></div>"
+    (html [:div [:br]]))
 
   )