Clojure Transform Attempt

gistfile1.clj

(ns sample.core)

(use '[clojure.data.xml :as data.xml])
(use '[clojure.java.io :as io])


(defn process-contact
  "I don't do a whole lot."
  [contact]
  (println contact)
  (println (:content (:first (:content contact))))
  [:id (:id (:attrs contact)) :first-name (:first (:content contact)) :last-name (:last (:content contact)) :email-address (:email (:content contact))]
  )

(defn contact-seq
  "Test"
  [rdr]
  (->> (:content (data.xml/parse rdr))
       (filter #(= :contact (:tag %)))
       (map process-contact)))

(defn run-sample
  "FUN"
  []
  (contact-seq (io/input-stream "contacts.xml")))