Example [skip ci]

This commit is contained in:
Michiel Borkent 2020-10-13 16:57:04 +02:00
parent 5fd975c312
commit b00bc71c1c

View file

@ -22,8 +22,10 @@
(def xml (xml/parse-str (slurp pom-xml))) (def xml (xml/parse-str (slurp pom-xml)))
(defn update-version [elt] (defn update-version [elt]
(if (= :version (:tag elt)) (if-let [t (:tag elt)]
(assoc elt :content version) (if (= "version" (name t))
(assoc elt :content version)
elt)
elt)) elt))
(println (println