        (map second)
        (filter mount-state?)))
 
-
 ;;TODO ns based for now. need to be _state_ based
 (defn- add-deps [{:keys [ns] :as state} all]
   (let [refers (ns-refers ns)

    (doall (map rollback! states)) ;; restore to origin from "start-with"
    :stopped))

(defn start-with-args [xs & states]
  (reset! -args xs)
  (if (first states)

          without (remove (set states) app)]
      (apply start without))
    (start)))

(defn suspend [& states]
  (let [states (or (seq states) (find-all-states))]
    (bring states sigstop <)
    :suspended))

(defn resume [& states]
  (let [states (or (seq states) (find-all-states))]
    (bring states sigcont <)
    :resumed))
