fixed empty tag name case with id and class

src/dev/onionpancakes/chassis/core.clj

@@ -715,11 +715,11 @@
         head-name (.getName head)
         pound-idx (.indexOf head-name 35 #_(int \#))
         dot-idx   (.indexOf head-name 46 #_(int \.))]
-    (if (pos? pound-idx)
-      (if (pos? dot-idx)
+    (if (>= pound-idx 0)
+      (if (>= dot-idx 0)
         (if (< dot-idx pound-idx)
           (let [dot-idx-after (.indexOf head-name 46 #_(int \.) pound-idx)]
-            (if (pos? dot-idx-after)
+            (if (>= dot-idx-after 0)
               ;; +head-id, +head-class-before, +head-class-after
               (let [tag           (->> (.substring head-name 0 dot-idx)
                                        (clojure.lang.Keyword/intern head-ns))
@@ -751,7 +751,7 @@
                            (clojure.lang.Keyword/intern head-ns))
               head-id (.substring head-name (inc pound-idx))]
           (OpeningTag. metadata tag head-id nil attrs)))
-      (if (pos? dot-idx)
+      (if (>= dot-idx 0)
         ;; -head-id, +head-class
         (let [tag        (->> (.substring head-name 0 dot-idx)
                               (clojure.lang.Keyword/intern head-ns))

test/dev/onionpancakes/chassis/tests/test_core.clj

@@ -117,27 +117,33 @@
 (deftest test-html-tag-id-class
   (are [node s] (= (c/html node) s)
     ;; id
+    [:#foo]    "< id=\"foo\"></>"
     [:div#foo] "<div id=\"foo\"></div>"
 
     ;; class
+    [:.a]        "< class=\"a\"></>"
     [:div.a]     "<div class=\"a\"></div>"
     [:div.a.b]   "<div class=\"a b\"></div>"
     [:div.a.b.c] "<div class=\"a b c\"></div>"
 
     ;; id, class
+    [:#foo.a]        "< id=\"foo\" class=\"a\"></>"
     [:div#foo.a]     "<div id=\"foo\" class=\"a\"></div>"
     [:div#foo.a.b]   "<div id=\"foo\" class=\"a b\"></div>"
     [:div#foo.a.b.c] "<div id=\"foo\" class=\"a b c\"></div>"
 
     ;; class, id
+    [:.a#foo]        "< id=\"foo\" class=\"a\"></>"
     [:div.a#foo]     "<div id=\"foo\" class=\"a\"></div>"
     [:div.a.b#foo]   "<div id=\"foo\" class=\"a b\"></div>"
     [:div.a.b.c#foo] "<div id=\"foo\" class=\"a b c\"></div>"
 
     ;; class, id, class
+    [:.a.b.c#foo.d.e.f]    "< id=\"foo\" class=\"a b c d e f\"></>"
     [:div.a.b.c#foo.d.e.f] "<div id=\"foo\" class=\"a b c d e f\"></div>"
 
     ;; class, id, class, pound
+    [:.a.b.c#foo.d.e.f#bar.baz]    "< id=\"foo\" class=\"a b c d e f#bar baz\"></>"
     [:div.a.b.c#foo.d.e.f#bar.baz] "<div id=\"foo\" class=\"a b c d e f#bar baz\"></div>"))
 
 (deftest test-html-tag-id-class-attrs-merge