XML Maniplulation in Clojure

xml.clj

;            [clojure.zip :as zip]
;            [clojure.data.xml :refer [parse-str] :as x]
;            [clojure.data.zip.xml :refer [xml-> text] :as zx]


  (defn parse-xml
    [s]
    (-> s x/parse-str zip/xml-zip))

  (defn update-in-xml
    [xml ks f & args]
    (let [loc (apply zx/xml1-> xml ks)]
      (-> (apply zip/edit loc f args)
          zip/root zip/xml-zip)))

  (defn xml-to-str
    [xml]
    (x/emit-str (zip/root xml)))

  (let [xml (parse-xml "<a><b>1</b></a>")
        xml (update-in-xml xml [:a :b] assoc :content 2 :tag :c)]
    (xml-to-str xml))