cljutlet

cljutlet.clj

;;http://snellm.github.io/cutlet/
 
(ns cljutlet.core
  (:use [clojure.data.zip.xml])
  (:require [clojure.xml :as xml]
            [clojure.zip :as zip]))

(def data (zip/xml-zip (xml/parse "people.xml")))

(for [p (xml-> data :person)]
  {:forename (xml1-> p :firstname text)
   :surname (xml1-> p :lastname text)
   :mobile (str "mobile-" (xml1-> p :phonenumber (attr= :type "mobile") text))})