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

Put revision in pom.properties file.

Browse source
This commit is contained in:
Phil Hagelberg 2012-08-16 09:44:16 -07:00
parent d1ba7d7d10
commit 8cb129c5be
1 changed files with 8 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/leiningen/pom.clj
View file

@ -316,11 +316,14 @@
(defn make-pom-properties [project]
(with-open [baos (java.io.ByteArrayOutputStream.)]
(.store (doto (java.util.Properties.)
(.setProperty "version" (:version project))
(.setProperty "groupId" (:group project))
(.setProperty "artifactId" (:name project)))
baos "Leiningen")
(let [properties (doto (java.util.Properties.)
(.setProperty "version" (:version project))
(.setProperty "groupId" (:group project))
(.setProperty "artifactId" (:name project)))
git-head (io/file (:root project) ".git")]
(when (.exists git-head)
(.setProperty properties "revision" (read-git-head git-head)))
(.store properties baos "Leiningen"))
(str baos)))
(defn ^{:help-arglists '([])} pom