From c9fb6f1c80a83f9e8ea88f7db3caedae57985fd7 Mon Sep 17 00:00:00 2001
From: Asko Nõmm <asko@nmm.ee>
Date: Thu, 11 Sep 2025 23:05:47 +0300
Subject: Getting there

---
 src/dompa/core.clj | 22 ++++++++++++++--------
 1 file changed, 14 insertions(+), 8 deletions(-)

(limited to 'src/dompa/core.clj')

diff --git a/src/dompa/core.clj b/src/dompa/core.clj
index 79d0c08..4891c46 100644
--- a/src/dompa/core.clj
+++ b/src/dompa/core.clj
@@ -7,20 +7,26 @@
   (->> (html->coordinates html)
        (coordinates->nodes html)))
 
+(def default-void-nodes
+  #{:img})
+
+(defn- node->html
+  [{:keys [name content void-node?]}]
+  (if void-node?
+    (str "<" name ">")
+    (str "<" name ">" content "</" name ">")))
+
 (defn nodes->html 
   ([nodes]
-   (nodes->html nodes {:void-nodes #{:img}}))
+   (nodes->html nodes {:void-nodes default-void-nodes}))
   ([nodes {:keys [void-nodes]}]
    (reduce
      (fn [html node]
-       (cond
-         (= (-> node :name) :dompa/text)
+       (if (= (-> node :name) :dompa/text)
          (str html (-> node :value))
-
-         :else
-         (let [node-name (-> node :name name)
-               node-child-html (nodes->html (-> node :children))]
-           (str html "<" node-name ">" node-child-html "</" node-name ">"))))
+         (node->html {:name (-> node :name name)
+                      :content (nodes->html (-> node :children))
+                      :void-node? (contains? void-nodes (-> node :name))})))
      ""
      nodes)))
 
-- 
cgit v1.2.3