diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/dompa/nodes.cljc | 52 | ||||
| -rw-r--r-- | src/dompa/templates.cljc | 37 |
2 files changed, 51 insertions, 38 deletions
diff --git a/src/dompa/nodes.cljc b/src/dompa/nodes.cljc index d72aa75..24d446e 100644 --- a/src/dompa/nodes.cljc +++ b/src/dompa/nodes.cljc @@ -73,4 +73,54 @@ (->html nodes {:void-nodes default-void-nodes})) ([nodes {:keys [void-nodes]}] (-> (node->html-reducer-fn void-nodes ->html) - (reduce "" nodes))))
\ No newline at end of file + (reduce "" nodes)))) + +(defmacro defhtml + "Creates a new function with `name` that outputs HTML. + + Example usage: + + ```clojure + (defhtml about-page [who] + ($ :div + ($ \"hello \" who))) + + (about-page \"world\") + ``` + " + [name & args-and-elements] + (let [[args & elements] args-and-elements] + `(defn ~name ~args + (->html (vector ~@elements))))) + +(defn $->flat-xf [] + (fn [rf] + (letfn [(step [result input] + (if (sequential? input) + (reduce step result input) + (rf result input)))] + (fn + ([] (rf)) + ([result] (rf result)) + ([result input] (step result input)))))) + +(defn $->flat [children] + (into [] ($->flat-xf) children)) + +(defmacro $ + "A helper that simplifies node creation. Particularly useful + where you need compile-time composition over run-time, like when + combined with the `defhtml` macro." + [name & opts] + `(if (string? ~name) + {:node/name :dompa/text + :node/value (str ~name ~@opts)} + (let [opts# (list ~@opts) + 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 ($->flat children#)))))) diff --git a/src/dompa/templates.cljc b/src/dompa/templates.cljc deleted file mode 100644 index 2f79fd2..0000000 --- a/src/dompa/templates.cljc +++ /dev/null @@ -1,37 +0,0 @@ -(ns dompa.templates - (:require [dompa.nodes :as nodes])) - -(defmacro defhtml - [name & args-and-elements] - (let [[args & elements] args-and-elements] - `(defn ~name ~args - (nodes/->html (vector ~@elements))))) - -(defn ->flat-xf [] - (fn [rf] - (letfn [(step [result input] - (if (sequential? input) - (reduce step result input) - (rf result input)))] - (fn - ([] (rf)) - ([result] (rf result)) - ([result input] (step result input)))))) - -(defn ->flat [children] - (into [] (->flat-xf) children)) - -(defmacro $ - [name & opts] - `(if (string? ~name) - {:node/name :dompa/text - :node/value (str ~name ~@opts)} - (let [opts# (list ~@opts) - 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 (->flat children#)))))) |