(defn list->xml-item [lst]
(let [[name quantity price] (map str lst)]
{:tag :item
:attrs {:name name
:quantity quantity
:price price}}))

(defn cvs->xml [r]
(->> (map #(read-string (str "(" % ")")) (line-seq r))
(map list->xml-item)
(assoc {:tag :shopping} :content)
(emit)
(with-out-str)))

(println (cvs->xml *cvs-reader*))

(ns xml-create
(:import java.io.StringReader
java.io.LineNumberReader))
(use 'clojure.contrib.lazy-xml)

(def *cvs* "bread,3,2.50\nmilk,2,3.50")
(def *cvs-reader* (LineNumberReader. (StringReader. *cvs*)))

(defn list->xml-item [lst]
(let [[name quantity price] (map str lst)]
{:tag :item
:attrs {:name name
:quantity quantity
:price price}}))

(defn cvs->xml [r]
(->> (map #(read-string (str "(" % ")")) (line-seq r))
(map list->xml-item)
(assoc {:tag :shopping} :content)
(emit)
(with-out-str)))

(println (cvs->xml *cvs-reader*))
;
; cvs->xml performs the following steps line by line in '->>'
; each line, ex "bread,3,2.5" is read from the reader -> (bread 3 2.5)
; -> ({:tag :item :attrs {:name "bread" :quantity "3" :price "2.5"}})
; -> {:tag :shopping :content (...list of maps from prev line...)}
; encode map to xml, result is written to *out*
; data written to *out* is returned as a string