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

#81: stop-except & start-without to take all states

Browse source
This commit is contained in:
anatoly 2017-04-06 17:35:35 -04:00
parent 6ae0255677
commit 095eb81488
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/mount/core.cljc
View file

@ -358,7 +358,9 @@
(let [all (set (find-all-states)) (let [all (set (find-all-states))
states (map var-to-str states) states (map var-to-str states)
states (remove (set states) all)] states (remove (set states) all)]
(apply stop states))) (if-not (empty? states)
(apply stop states)
{:stopped #{}})))
(defn start-with-args [xs & states] (defn start-with-args [xs & states]
(reset! -args xs) (reset! -args xs)
@ -383,5 +385,7 @@
(let [app (set (all-without-subs)) (let [app (set (all-without-subs))
states (map var-to-str states) states (map var-to-str states)
without (remove (set states) app)] without (remove (set states) app)]
(apply start without)) (if-not (empty? without)
(apply start without)
{:started #{}}))
(start))) (start)))