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

start/stop return :started/:stopped

Browse source
This commit is contained in:
anatoly 2015-10-25 22:27:09 -04:00
parent 7c6262ad7d
commit 64042919d1
2 changed files with 8 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
dev/dev.clj
View file

@ -17,12 +17,10 @@
[app :refer [create-nyse-schema find-orders add-order]])) ;; <<<< replace this your "app" namespace(s) you want to be available at REPL time [app :refer [create-nyse-schema find-orders add-order]])) ;; <<<< replace this your "app" namespace(s) you want to be available at REPL time
(defn start [] (defn start []
(mount/start) (mount/start))
:started)
(defn stop [] (defn stop []
(mount/stop) (mount/stop))
:stopped)
(defn refresh [] (defn refresh []
(stop) (stop)

11
src/mount/mount.clj
View file

@ -73,14 +73,15 @@
(defn- bring [states fun order] (defn- bring [states fun order]
(->> states (->> states
(sort-by (comp :order meta) order) (sort-by (comp :order meta) order)
(map #(fun % (meta %))))) (map #(fun % (meta %)))
doall))
(defn start [& states] (defn start [& states]
(let [states (or states (find-all-states))] (let [states (or states (find-all-states))]
(doall (bring states up <)
(bring states up <)))) :started))
(defn stop [& states] (defn stop [& states]
(let [states (or states (find-all-states))] (let [states (or states (find-all-states))]
(doall (bring states down >)
(bring states down >)))) :stopped))