luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix

Browse source
This commit is contained in:
Michiel Borkent 2020-04-18 23:52:19 +02:00
parent d1a2a4705b
commit 4411ae6eca
1 changed files with 10 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
examples/pom_version.clj
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))) (->>
(slurp path)
(xml/parse-str)
(xml-seq )
(filter #(tag-name? % "version")) (filter #(tag-name? % "version"))
first first
tag-content-str))) tag-content-str)))
(pom-version) (if-let [arg (first *command-line-args*)]
(pom-version arg)
(pom-version))