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

todo for ns filtering

Browse source
This commit is contained in:
anatoly 2015-10-23 06:22:01 -04:00
parent eb95689e94
commit 2d091896f4
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/mount/mount.clj
View file

@ -52,6 +52,14 @@
(throw (RuntimeException. (str "could not stop [" name "] due to") t))))) (throw (RuntimeException. (str "could not stop [" name "] due to") t)))))
(alter-meta! var assoc :started? false))) (alter-meta! var assoc :started? false)))
;; TODO: narrow down by {:mount {:include-ns
;; {:starts-with ["app.foo" "bar.baz"]
;; :nss ["app.nyse" "app.tools.datomic"] }
;; :exclude-ns
;; {:starts-with ["dont.want.this" "app.debug"]
;; :nss ["dev" "app.stage"]}}}
;;
;; would come from lein dev profile
(defn- f-states [f order] (defn- f-states [f order]
(->> (all-ns) (->> (all-ns)
(mapcat ns-interns) (mapcat ns-interns)