Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
(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)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.