XML DOM builder in Clojure

dom.clj

(defmacro dom [doc parent el]
  (let [docsym (gensym "doc")
        parentsym (gensym "parent")
        elsym (gensym "el")]
    `(let [~parentsym ~parent
           [ens# enm#] ~(first el)
           ~docsym ~doc
           ~elsym (.createElementNS ~docsym ens# enm#)]
       ~@(concat
          (for [item (next el)]
            (cond
              (string? item) `(.appendChild ~elsym (.createTextNode ~docsym ~item))
              (list? item) `(.appendChild ~elsym (dom ~docsym ~parentsym ~item))))
          [`(.appendChild ~parentsym ~elsym)]))))

(let [doc (.newDocument dom-builder)]
    (dom
     doc doc
     (["DAV:" "multistatus"]
      (["DAV:" "response"]
       (["DAV:" "href"] "http://www.example.com/file")
       (["DAV:" "propstat"]
        (["DAV:" "prop"]
         (["DAV:" "bigbox"])))))))