Clojure data xml usage

clojure_data_xml_usage.clj

(require '[clojure.data.xml :as xml])

;; `emit-str`
(xml/emit-str
 (xml/sexp-as-element
  [:Login
   [:AgencyCode "agencycode"]
   [:Username "XML_Agency"]
   [:Password "Password@123"]]))

;; `emit`
(with-open [w (java.io.StringWriter.)]
  (xml/emit
   (xml/sexp-as-element
    [:login [:user "x"] [:password "y"]])
    w)
  (.toString w))

;; `sexps-as-fragment`
(xml/emit-str
 (xml/element
  :hotels
  {}
  (xml/sexps-as-fragment
   [:code 100]
   [:code 200]
   [:code 300])))