From 29c5b153843a29d5e0a7acf4fc78cd00a2c4f02f Mon Sep 17 00:00:00 2001
From: Asko Nõmm <asko@nmm.ee>
Date: Wed, 8 Oct 2025 20:48:49 +0300
Subject: Fix CLJS nodes test

---
 src/dompa/nodes.cljs | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 src/dompa/nodes.cljs

(limited to 'src/dompa/nodes.cljs')

diff --git a/src/dompa/nodes.cljs b/src/dompa/nodes.cljs
new file mode 100644
index 0000000..8e19e2f
--- /dev/null
+++ b/src/dompa/nodes.cljs
@@ -0,0 +1,24 @@
+(ns dompa.nodes)
+
+(defn $
+  "Creates a new node
+  
+  Usage:
+
+  ```clojure
+  ($ :div
+    ($ \"hello world\" ))
+  ```"
+  [name & opts]
+  (if (string? name)
+    {:node/name  :dompa/text
+     :node/value (apply str name opts)}
+    (let [first-opt (first opts)
+          attrs? (and (map? first-opt)
+                      (not (contains? first-opt :node/name)))
+          attrs (if attrs? first-opt {})
+          children (if attrs? (rest opts) opts)]
+      (cond-> {:node/name name}
+              attrs? (assoc :node/attrs attrs)
+              (seq children) (assoc :node/children children)))))
+
-- 
cgit v1.2.3