Fix an issue where a sequence of nodes created with the `$` helper would break.

2 files changed, 13 insertions, 2 deletions

diff --git a/src/dompa/nodes.cljc b/src/dompa/nodes.cljc
index 236271d..8600026 100644
--- a/src/dompa/nodes.cljc
+++ b/src/dompa/nodes.cljc
@@ -92,7 +92,7 @@
   [name & args-and-elements]
   (let [[args & elements] args-and-elements]
     `(defn ~name ~args
-       (->html [~@elements]))))
+       (->html (vector ~@elements)))))
 
 (defn $
   "Creates a new node
@@ -114,4 +114,4 @@
           children (if attrs? (rest opts) opts)]
       (cond-> {:node/name name}
         attrs? (assoc :node/attrs attrs)
-        (seq children) (assoc :node/children children)))))
+        (seq children) (assoc :node/children (flatten children))))))
diff --git a/test/dompa/nodes_test.cljc b/test/dompa/nodes_test.cljc
index 8d39da1..2606be6 100644
--- a/test/dompa/nodes_test.cljc
+++ b/test/dompa/nodes_test.cljc
@@ -14,6 +14,17 @@
   (is (= "<div>hello world</div>"
          (hello "world"))))
 
+(defhtml list-items [items]
+  ($ :ul
+     (->> items
+          (map (fn [item]
+                ($ :li ($ item))))
+          (into []))))
+
+(deftest list-items-test
+  (is (= "<ul><li>one</li><li>two</li><li>three</li></ul>"
+         (list-items ["one" "two" "three"]))))
+
 (deftest $-test
   (testing "a simple node"
     (is (= {:node/name     :div