macro-writing-macros.clj

(ns demo.macro-writing-macros)

(def dom-elements
  '[h1
    h2])

(defn gen-dom-macro [name]
  `(defmacro ~name [p# & c#]
     (let [kw# ~(-> name str keyword)
           children# (into [] c#)]
       `[~kw# ~p# ~children#])))

(defmacro define-element-macro []
  `(do ~@(clojure.core/map gen-dom-macro dom-elements)))

(define-element-macro)

(prn (h1 {} "hello" "world"))
(prn (h2 {} "hello" "world"))