Improve $ macro clj-kondo hook, impl fragment node (well, not really a node itself, but any node with a name of :<> will replace itself with its children.

1 files changed, 19 insertions, 11 deletions

diff --git a/src/dompa/nodes.cljc b/src/dompa/nodes.cljc
index 295e755..d72aa75 100644
--- a/src/dompa/nodes.cljc
+++ b/src/dompa/nodes.cljc
@@ -13,19 +13,27 @@
 (defn- node->html-reducer-fn
   [void-nodes nodes->html-fn]
   (fn [html node]
-    (when-not (nil? node)
-      (let [node-name (-> node :node/name name)
-            node-attrs (reduce-kv node-attrs-reducer "" (-> node :node/attrs))]
-        (cond
-          (= (-> node :node/name) :dompa/text)
-          (str html (-> node :node/value))
+    (cond
+      ; fragment nodes expand their children to replace themselves
+      (and (not (nil? node))
+           (= (:node/name node) :<>))
+      (str html (nodes->html-fn (:node/children node)))
 
-          (contains? void-nodes (-> node :node/name))
-          (str html "<" node-name node-attrs">")
+      ; otherwise business as usual
+      :else
+      (when-not (nil? node)
+        (let [node-name (-> node :node/name name)
+              node-attrs (reduce-kv node-attrs-reducer "" (-> node :node/attrs))]
+          (cond
+            (= (-> node :node/name) :dompa/text)
+            (str html (-> node :node/value))
 
-          :else
-          (let [value (nodes->html-fn (-> node :node/children))]
-            (str html "<" node-name node-attrs ">" value "</" node-name ">")))))))
+            (contains? void-nodes (-> node :node/name))
+            (str html "<" node-name node-attrs">")
+
+            :else
+            (let [value (nodes->html-fn (-> node :node/children))]
+              (str html "<" node-name node-attrs ">" value "</" node-name ">"))))))))
 
 (defn traverse
   "Recursively traverses given tree of `nodes` with a `traverser-fn`