blob: 2f79fd22b337cd7b3aab2d83a83d0ae717ccf2d1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
(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#))))))
|
