defuiとCrate(Hiccup)メモ ref: http://qiita.com/kurogelee/items/59a5caae5e7b0c3571ad

file2.txt

"<div>:sample</div>"
"<div style=\"color:red; margin: 5px\"></div>"
"<div style=\"color:red; margin: 5px\">123</div>"

file4.txt

"<button><div id=\"abc\"><span class=\"def\">987</span></div></button>"

lt.macros.clj抜粋

(defmacro defui [sym params hiccup & events]
  `(defn ~sym ~params
     (let [e# (crate.core/html ~hiccup)]
       (doseq [[ev# func#] (partition 2 ~(vec events))]
         (lt.util.dom/on e# ev# func#))
       e#)))

lt.util.dom.cljs抜粋

(defn ->ev [ev]
  (str (name ev)))

(defn on [elem ev cb]
  (.addEventListener elem (->ev ev) cb))

sample.cljs

(ns sample.core
  (:require [lt.util.dom :as dom])
  (:require-macros [lt.macros :refer [behavior defui]]))

(defui create-div [text]
  [:div [:div text]])

(.-innerHTML (create-div :sample))

(defui create-div2 [& [value]]
  [:div [:div {:style "color:red; margin: 5px"} value]])

(.-innerHTML (create-div2))
(.-innerHTML (create-div2 123))

sample2.cljs

(defui create-div3 []
  [:button [:div#abc [:span.def 987]]]
  :click (fn [event] (println event)))

(.-outerHTML (create-div3))