35 lines
641 B
Clojure
35 lines
641 B
Clojure
|
#!/usr/bin/env bb
|
||
|
|
|
||
|
|
;; usage: version.clj pom.xml 1.0.1
|
||
|
|
|
||
|
|
;; pom.xml:
|
||
|
|
;; <project>
|
||
|
|
;; <version></version>
|
||
|
|
;; </project>
|
||
|
|
|
||
|
|
;; prints to stdout:
|
||
|
|
;; <project>
|
||
|
|
;; <version>1.0.1</version>
|
||
|
|
;; </project>
|
||
|
|
|
||
|
|
(ns set-pom-version
|
||
|
|
{:author "Michiel Borkent"}
|
||
|
|
(:require [clojure.data.xml :as xml]))
|
||
|
|
|
||
|
|
(def pom-xml (first *command-line-args*))
|
||
|
|
(def version (second *command-line-args*))
|
||
|
|
|
||
|
|
(def xml (xml/parse-str (slurp pom-xml)))
|
||
|
|
|
||
|
|
(defn update-version [elt]
|
||
|
|
(if (= :version (:tag elt))
|
||
|
|
(assoc elt :content version)
|
||
|
|
elt))
|
||
|
|
|
||
|
|
(println
|
||
|
|
(xml/emit-str
|
||
|
|
(update xml :content
|
||
|
|
(fn [contents]
|
||
|
|
(map update-version contents)))))
|
||
|
|
|