From 0c55f6d39bb83514f6b85f5da02214a78f2b1a13 Mon Sep 17 00:00:00 2001
From: Asko Nõmm <asko@nmm.ee>
Date: Wed, 3 Sep 2025 16:10:52 +0300
Subject: Getting there ...

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

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

diff --git a/src/dompa/core.clj b/src/dompa/core.clj
index d8fff41..79d0c08 100644
--- a/src/dompa/core.clj
+++ b/src/dompa/core.clj
@@ -4,23 +4,25 @@
     [dompa.nodes :refer [coordinates->nodes]]))
 
 (defn html->nodes [html]
-  (->> html
-       html->coordinates
+  (->> (html->coordinates html)
        (coordinates->nodes html)))
 
-(defn nodes->html [nodes]
-  (reduce
-    (fn [html node]
-      (cond
-        (= (-> node :name) :dompa/text)
-        (str html (-> node :value))
+(defn nodes->html 
+  ([nodes]
+   (nodes->html nodes {:void-nodes #{:img}}))
+  ([nodes {:keys [void-nodes]}]
+   (reduce
+     (fn [html node]
+       (cond
+         (= (-> 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 ">"))))
-    ""
-    nodes))
+         :else
+         (let [node-name (-> node :name name)
+               node-child-html (nodes->html (-> node :children))]
+           (str html "<" node-name ">" node-child-html "</" node-name ">"))))
+     ""
+     nodes)))
 
 (defn traverse-nodes [nodes pred]
   (reduce
-- 
cgit v1.2.3