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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
(use 'clojure.string)
(def tej-ref (read-string (slurp "ast-ref.edn")))
(def html (slurp "quickref.html.tpl"))
(defn fix [x]
(-> (str x)
(replace #"`(.*?)`" "<code>$1</code>")
(replace #":([a-zA-Z\?!\-]*)" "<code>:$1</code>")))
(defn build-children [children]
(if (some #(:optional (meta %)) children)
(let [[c & rest] children]
(let [k (build-children rest)
kc (mapv (fn [x] (cons c x)) k)]
(if (:optional (meta c))
(into k kc)
kc)))
(if (seq children)
[children]
[[]])))
(defn children [keys]
(when-let [children (seq (filter #(:children (meta %)) keys))]
(mapv #(mapv first %) (build-children children))))
(def nodes
(apply str (for [{:keys [op doc keys]} (:node-keys tej-ref) :let [op (name op)]]
(str "<section>"
"<h2>" "<a href=\"#" op "\" name=\"" op "\">#</a>" op "</h2>"
"<h4>" doc "</h4>"
"<dl>"
"<dt> :op </dt> <dd> <code>:" op "</code></dd>"
(apply str (for [[k d :as f] keys]
(str "<dt>" k "</dt>"
"<dd>" (if (:optional (meta f))
"<b>optional</b> ") (fix d) "</dd>")))
(if-let [c (children keys)]
(str "<dt> :children </dt> <dd> "
(join ", " (mapv (fn [c] (str "<code>" c "</code>")) c)) "</dd>"))
"</dl>"
"</section>\n"))))
(def nav
(apply str (for [{op :op} (:node-keys tej-ref) :let [op (name op)]]
(str "<li><a href=\"#" op "\">" op "</a></li>\n"))))
(def common
(apply str (str "<section>"
"<dl>"
(apply str (for [[k d :as f] (:all-keys tej-ref)]
(str "<dt>" k "</dt>"
"<dd>" (if (:optional (meta f))
"<b>optional</b> ") (fix d) "</dd>")))
"</dl>"
"</section>\n")))
(spit "quickref.html"
(-> html
(replace "{nav}" nav)
(replace "{common}" common)
(replace "{nodes}" nodes)))
|
