luciano/mount
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

adding "defstate!" wrapper (per @DomKM)

Browse source
This commit is contained in:
anatoly 2015-12-15 11:47:21 -05:00
parent c1be3c377e
commit eeda080322
2 changed files with 51 additions and 42 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/mount/core.cljc
View file

@ -147,6 +147,15 @@
:var (var ~state))) :var (var ~state)))
(var ~state)))))) (var ~state))))))
#?(:clj
(defmacro defstate! [state & {:keys [start! stop!]}]
(let [state-name (with-ns *ns* state)]
`(defstate ~state
:start (~'let [~state (mount/current-state ~state-name)]
~start!)
:stop (~'let [~state (mount/current-state ~state-name)]
~stop!)))))
(defn in-cljc-mode [] (defn in-cljc-mode []
(reset! mode :cljc)) (reset! mode :cljc))