convert clojure maps to xml #clojure

to-xml.clj

;; :require [clojure.data.xml :as xml]

(defn to-xml
  "Convert an arbitrary map to xml."
  [root-element x]
  (xml/emit-str
   (xml/element
    root-element {}
    (map (fn make-node [[f s]]
           (cond
             (map? s) (xml/element f {} (map make-node (seq s)))
             (vector? s) (xml/element f {} (map make-node (partition 2 (flatten (map seq s)))))
             :else (xml/element f {} s)))
         (seq x)))))