xml2map.clj

(defn xml->map
  "Konwertuje sparsowanego xml'a na mapę.
  Uwaga, uwzględnia tylko tagi i zawartość. Ignoruje atrybuty"
  [xml]
  (walk/postwalk
   (fn [e]
     (let [content (:content e)]
       (cond
         (map? e) {(:tag e)
                   (if (<= (count content) 1)
                     (first content)
                     content)}
         :else    e)))
   xml))