From 1be280a478f4162e01dde69cdaf1248f3d0ea33b Mon Sep 17 00:00:00 2001
From: anatoly <tolitius@gmail.com>
Date: Sun, 25 Oct 2015 22:08:37 -0400
Subject: [PATCH] start/stop selected states

useful for debugging, REPLing, testing
---
 dev/dev.clj         |  8 +++++---
 src/mount/mount.clj | 16 +++++++++-------
 2 files changed, 14 insertions(+), 10 deletions(-)

diff --git a/dev/dev.clj b/dev/dev.clj
index c3d79aa..15bea52 100644
--- a/dev/dev.clj
+++ b/dev/dev.clj
@@ -14,13 +14,15 @@
             ;; [clojure.core.async :refer [>!! <!! >! <! go-loop alt! timeout]]
             [clojure.tools.namespace.repl :as tn]
             [mount :as app]
-            [app :refer :all]))  ;; <<<< 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 []
-  (app/start))
+  (app/start)
+  :started)
 
 (defn stop []
-  (app/stop))
+  (app/stop)
+  :stopped)
 
 (defn refresh []
   (stop)
diff --git a/src/mount/mount.clj b/src/mount/mount.clj
index 6300f47..a7348d4 100644
--- a/src/mount/mount.clj
+++ b/src/mount/mount.clj
@@ -56,7 +56,7 @@
           (throw (RuntimeException. (str "could not stop [" name "] due to") t)))))
     (alter-meta! var assoc :started? false)))
 
-(defn find-states []
+(defn find-all-states []
   (->> (all-ns)
        (mapcat ns-interns)
        (map second)
@@ -75,10 +75,12 @@
        (sort-by (comp :order meta) order)
        (map #(fun % (meta %)))))
 
-(defn start []
-  (doall 
-    (bring (find-states) up <)))
+(defn start [& states]
+  (let [states (or states (find-all-states))]
+    (doall 
+      (bring states up <))))
 
-(defn stop []
-  (doall
-    (bring (find-states) down >)))
+(defn stop [& states]
+  (let [states (or states (find-all-states))]
+    (doall 
+      (bring states down >))))