diff --git a/project.clj b/project.clj index ed95b83..748a2c5 100644 --- a/project.clj +++ b/project.clj @@ -1,7 +1,7 @@ (defproject ns-tracker "0.2.0" :description "Keep track of which namespaces have been modified" - :dependencies [[org.clojure/clojure "1.2.1"] - [org.clojure/tools.namespace "0.1.3"] + :dependencies [[org.clojure/clojure "1.3.0"] + [org.clojure/tools.namespace "0.2.0"] [org.clojure/java.classpath "0.2.0"]] :profiles {:dev {:dependencies [[commons-io "1.4"]]} diff --git a/src/ns_tracker/core.clj b/src/ns_tracker/core.clj index 805e5b6..9e2fb49 100644 --- a/src/ns_tracker/core.clj +++ b/src/ns_tracker/core.clj @@ -1,10 +1,11 @@ (ns ns-tracker.core "Keeps track of which namespaces have changed and need to be reloaded." (:use [ns-tracker.dependency :only (graph seq-union depend dependents remove-key)] - [ns-tracker.nsdeps :only (deps-from-ns-decl)] + [ns-tracker.nsdeps :only (deps-from-ns-decl)] [clojure.java.io :only (file)] - [clojure.tools.namespace :only (find-clojure-sources-in-dir - read-file-ns-decl)])) + [clojure.tools.namespace + [file :only (read-file-ns-decl)] + [find :only (find-clojure-sources-in-dir)]])) (defn- file? [f] (instance? java.io.File f)) @@ -32,10 +33,10 @@ (defn- add-to-dep-graph [dep-graph namespace-decls] (reduce (fn [g decl] - (let [nn (second decl) - deps (deps-from-ns-decl decl)] - (apply depend g nn deps))) - dep-graph namespace-decls)) + (let [nn (second decl) + deps (deps-from-ns-decl decl)] + (apply depend g nn deps))) + dep-graph namespace-decls)) (defn- remove-from-dep-graph [dep-graph new-decls] (apply remove-key dep-graph (map second new-decls))) @@ -47,8 +48,8 @@ (defn- affected-namespaces [changed-namespaces old-dependency-graph] (apply seq-union changed-namespaces - (map #(dependents old-dependency-graph %) - changed-namespaces))) + (map #(dependents old-dependency-graph %) + changed-namespaces))) (defn- make-file [f] {:pre [(or (string? f) (file? f))]}