diff options
| author | Asko Nõmm <asko@nmm.ee> | 2025-09-23 22:46:16 +0300 |
|---|---|---|
| committer | Asko Nõmm <asko@nmm.ee> | 2025-09-23 22:46:16 +0300 |
| commit | d2b8b9424ffd40b8703ad61438430f3491a33249 (patch) | |
| tree | d7445ad2d7e93bb9dfe01b5abd5126e07ad6cfb9 /src/dompa/nodes.cljc | |
| parent | 20fa62ab90ed87e143bf9b140ba4b7708f1e91ee (diff) | |
Improvements to the utils macros.
Diffstat (limited to 'src/dompa/nodes.cljc')
| -rw-r--r-- | src/dompa/nodes.cljc | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/src/dompa/nodes.cljc b/src/dompa/nodes.cljc index 9ecc95f..dfd93bc 100644 --- a/src/dompa/nodes.cljc +++ b/src/dompa/nodes.cljc @@ -13,18 +13,19 @@ (defn- node->html-reducer-fn [void-nodes nodes->html-fn] (fn [html 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)) + (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)) - (contains? void-nodes (-> node :node/name)) - (str html "<" node-name node-attrs">") + (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 ">")))))) + :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` |