This commit is contained in:
Michiel Borkent 2020-04-18 23:52:19 +02:00
parent d1a2a4705b
commit 4411ae6eca

View file

@ -14,9 +14,14 @@
(defn pom-version (defn pom-version
([] (pom-version "pom.xml")) ([] (pom-version "pom.xml"))
([path] ([path]
(->> (xml-seq (xml/parse-str (slurp path))) (->>
(filter #(tag-name? % "version")) (slurp path)
first (xml/parse-str)
tag-content-str))) (xml-seq )
(filter #(tag-name? % "version"))
first
tag-content-str)))
(pom-version) (if-let [arg (first *command-line-args*)]
(pom-version arg)
(pom-version))