yogsototh/leiningen
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add lein deps :why com.google.guava/guava command.

Browse source
This commit is contained in:
Phil Hagelberg 2017-05-23 17:43:40 -07:00
parent 1a502050c7
commit 7fc6c5bdfb
1 changed files with 22 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
src/leiningen/deps.clj
View file

@ -21,6 +21,20 @@
(defn- print-dep [dep level]
(println (apply str (repeat (* 2 level) \space)) (pr-str dep)))
(defn- print-path [steps]
(doseq [[dep version level] steps]
(print-dep [dep version] level)))
(defn- why-finder [target]
(let [path (atom [])]
(fn [[dep version] level]
(cond (= target dep) (print-path (conj @path [dep version level]))
(< (count @path) (inc level)) (swap! path conj [dep version level])
(= (count @path) (inc level)) (do (swap! path pop)
(swap! path conj
[dep version level]))
(> (count @path) (inc level)) (swap! path pop)))))
(declare check-signature)
@ -147,4 +161,11 @@ force them to be updated, use `lein -U $TASK`."
:else (classpath/resolve-managed-dependencies
:dependencies :managed-dependencies project))
(catch DependencyResolutionException e
(main/abort (.getMessage e))))))
(main/abort (.getMessage e)))))
([project command target]
(when-not (re-find #":why+" command)
(main/abort "Unknown command" command))
(walk-deps (classpath/managed-dependency-hierarchy :dependencies
:managed-dependencies
project)
(why-finder (symbol target)))))