hoplon_defs.clj

(def elems
  ["html" "head" "body"
   "a" "abbr" "address" "area" "article" "aside" "audio" "b" "base" "bdi" "bdo" "blockquote" "br" "button" "canvas" "caption" "cite" "code" "col" "colgroup" "data" "datalist" "dd" "del" "details" "dfn" "dialog" "div" "dl" "dt" "em" "embed" "fieldset" "figcaption" "figure" "footer" "form" "h1" "h2" "h3" "h4" "h5" "h6" "header" "hgroup" "hr" "i" "iframe" "img" "input" "ins" "kbd" "keygen" "label" "legend" "li" "link" "main" "html-map" "mark" "menu" "menuitem" "html-meta" "meter" "multicol" "nav" "noframes" "noscript" "html-object" "ol" "optgroup" "option" "output" "p" "param" "picture" "pre" "progress" "q" "rp" "rt" "rtc" "ruby" "s" "samp" "script" "section" "select" "shadow" "small" "source" "span" "strong" "style" "sub" "summary" "sup" "table" "tbody" "td" "template" "textarea" "tfoot" "th" "thead" "html-time" "title" "tr" "track" "u" "ul" "html-var" "video" "wbr"])


(defmacro def-all-hoplon-elems!!! [& {:keys [exclude rename]}]
  `(do
     ~@(for [el# (remove (set (map name exclude)) elems)]
         (let [sym# (symbol el#)
               name# (get rename sym# sym#)
               val# (symbol "hoplon.core" el#)]
           `(def ~name# ~val#)))))