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

Place the project jar last in the uberjar. Fixes #178.

Browse source
This commit is contained in:
Phil Hagelberg 2011-03-02 22:10:15 -08:00
parent cdc38473f8
commit 6e7aa2629c
1 changed files with 6 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/leiningen/uberjar.clj
View file

@ -49,11 +49,11 @@
(defn write-components
"Given a list of jarfiles, writes contents to a stream"
[project deps out]
[project jars out]
(let [[_ components] (reduce (partial include-dep out
(make-skip-pred project))
[#{"META-INF/plexus/components.xml"} nil]
deps)]
jars)]
(when-not (empty? components)
(.putNextEntry out (ZipEntry. "META-INF/plexus/components.xml"))
(binding [*out* (PrintWriter. out)]
@ -69,17 +69,16 @@
"Create a jar like the jar task, but including the contents of each of
the dependency jars. Suitable for standalone distribution."
([project uberjar-name]
(doto project
clean deps)
(doto project clean deps)
(if (jar project)
(let [standalone-filename (get-jar-filename project uberjar-name)]
(with-open [out (-> standalone-filename
(FileOutputStream.)
(ZipOutputStream.))]
(let [deps (->> (.listFiles (file (:library-path project)))
(filter #(.endsWith (.getName %) ".jar"))
(cons (file (get-jar-filename project))))]
(write-components project deps out)))
(filter #(.endsWith (.getName %) ".jar")))
jars (conj (vec deps) (file (get-jar-filename project)))]]
(write-components project jars out)))
(println "Created" standalone-filename))
(abort "Uberjar aborting because jar/compilation failed.")))
([project] (uberjar project (get-default-uberjar-name project))))