mithril.cljs

(ns cloject.mithril)

(defn build [l]
  (if (vector? l)
    (apply js/m
      (clj->js (for [i l]
        (build i))))
    (if (seq? l)
      (clj->js (for [i l]
        (build i)))
      l)))

(defn mount [element attr]
  (.mount js/m element (clj->js attr)))

(defn redraw []
  (.redraw js/m))

(defn startComputation []
  (.startComputation js/m))

(defn endComputation []
  (.endComputation js/m))

(defn redraw-strategy [strategy]
  (-> js/m .-redraw (.strategy strategy)))