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 [>!! ! > (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 >))))