From 1a99176287d085b6784cb0113f415d0b0dddff6e Mon Sep 17 00:00:00 2001
From: Asko Nõmm <asko@nmm.ee>
Date: Fri, 26 Sep 2025 15:15:50 +0300
Subject: Use `cond->` instead of `merge`

---
 src/dompa/coordinates.cljc | 15 ++++++---------
 1 file changed, 6 insertions(+), 9 deletions(-)

(limited to 'src/dompa/coordinates.cljc')

diff --git a/src/dompa/coordinates.cljc b/src/dompa/coordinates.cljc
index 4f9a436..2d7e29d 100644
--- a/src/dompa/coordinates.cljc
+++ b/src/dompa/coordinates.cljc
@@ -257,15 +257,12 @@
 
 (defn- construct-node
   [node-html node-children]
-  (let [node-name (html-str->node-name node-html)]
-    (merge
-      {:node/name node-name}
-      (when (= node-name :dompa/text)
-        {:node/value node-html})
-      (when-let [attrs (html-str->node-attrs node-html)]
-        {:node/attrs attrs})
-      (when node-children
-        {:node/children node-children}))))
+  (let [node-name (html-str->node-name node-html)
+        node-attrs (html-str->node-attrs node-html)]
+    (cond-> {:node/name node-name}
+            (= node-name :dompa/text) (assoc :node/value node-html)
+            (not (nil? node-attrs)) (assoc :node/attrs node-attrs)
+            (not (nil? node-children)) (assoc :node/children node-children))))
 
 (defn ->nodes
   "Transform given `html` according to given `coordinates` into
-- 
cgit v1.2.3