Add split-deps helper

This commit is contained in:
Meikel Brandmeyer 2011-09-06 22:26:50 +02:00
parent 7640c4119c
commit 4df40cb0de

View file

@ -204,6 +204,12 @@
(defn usage []
(println "marginalia <src1> ... <src-n>"))
(defn split-deps [deps]
(for [d (.split deps ";")
:let [[group artifact version] (.split d ":")]]
[(if (= group artifact) artifact (str group "/" artifact))
version]))
(defn run-marginalia
"Default generation: given a collection of filepaths in a project, find the .clj
files at these paths and, if Clojure source files are found: