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

adding (running-states)

Browse source
This commit is contained in:
anatoly 2016-07-21 14:48:30 -04:00
parent 76cae93f81
commit 76fb498968
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/mount/core.cljc
View file

@ -181,6 +181,9 @@
(with-ns ns name)) (with-ns ns name))
v))) v)))
(defn running-states []
(keys @running))
(defn- unvar-state [s] (defn- unvar-state [s]
(->> s (drop 2) (apply str))) ;; magic 2 is removing "#'" in state name (->> s (drop 2) (apply str))) ;; magic 2 is removing "#'" in state name