diff options
Diffstat (limited to 'src/dompa/nodes.cljc')
| -rw-r--r-- | src/dompa/nodes.cljc | 30 |
1 files changed, 19 insertions, 11 deletions
diff --git a/src/dompa/nodes.cljc b/src/dompa/nodes.cljc index 295e755..d72aa75 100644 --- a/src/dompa/nodes.cljc +++ b/src/dompa/nodes.cljc @@ -13,19 +13,27 @@ (defn- node->html-reducer-fn [void-nodes nodes->html-fn] (fn [html node] - (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)) + (cond + ; fragment nodes expand their children to replace themselves + (and (not (nil? node)) + (= (:node/name node) :<>)) + (str html (nodes->html-fn (:node/children node))) - (contains? void-nodes (-> node :node/name)) - (str html "<" node-name node-attrs">") + ; otherwise business as usual + :else + (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)) - :else - (let [value (nodes->html-fn (-> node :node/children))] - (str html "<" node-name node-attrs ">" value "</" node-name ">"))))))) + (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 ">")))))))) (defn traverse "Recursively traverses given tree of `nodes` with a `traverser-fn` |