gen-ref.clj

(use 'clojure.string)

(deftej-ref (read-string (slurp"ast-ref.edn")))
(defhtml (slurp"quickref.html.tpl"))

(defnfix [x]
 (-> (str x)
 (replace#"`(.*?)`""<code>$1</code>")
 (replace#":([a-zA-Z\?!\-]*)""<code>:$1</code>")))

(defnbuild-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]
 [[]])))

(defnchildren [keys]
 (when-let [children (seq (filter #(:children (meta %)) keys))]
 (mapv #(mapv first %) (build-children children))))

(defnodes
 (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"))))

(defnav
 (apply str (for [{op :op} (:node-keys tej-ref) :let [op (name op)]]
 (str"<li><a href=\"#" op "\">" op "</a></li>\n"))))

(defcommon
 (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)))