carlohamalainen/gist:1318790

## gistfile1.clj
(ns blerp
  (:require [clojure.xml :as xml])
  (import (java.io ByteArrayInputStream)))

(def xml-data "<body> <myheader> <author> bob </author> </myheader> <data> d1 </data> <data>d2</data> <data>d3</data> </body>")

(def xml-parsed (let [input-stream (ByteArrayInputStream. (.getBytes xml-data))]
                  (xml-seq (xml/parse input-stream))))

(let [name-blob (for [x xml-parsed
                      :when (= (:tag x) :myheader)]
                  (for [data (:content x)
                        :when (= (:tag data) :author)]
                    (:content data)))

      data-blob (for [x xml-parsed
                              :when (= (:tag x) :data)]
                          (.trim (first (:content x))))

      result {:author (.trim (first (first (first name-blob))))
              :data   data-blob}]
  (println result))


;; Output:
;;
;; {:author bob, :data (d1 d2 d3)}
	(ns blerp
	(:require [clojure.xml :as xml])
	(import (java.io ByteArrayInputStream)))

	(def xml-data "<body> <myheader> <author> bob </author> </myheader> <data> d1 </data> <data>d2</data> <data>d3</data> </body>")

	(def xml-parsed (let [input-stream (ByteArrayInputStream. (.getBytes xml-data))]
	(xml-seq (xml/parse input-stream))))

	(let [name-blob (for [x xml-parsed
	:when (= (:tag x) :myheader)]
	(for [data (:content x)
	:when (= (:tag data) :author)]
	(:content data)))

	data-blob (for [x xml-parsed
	:when (= (:tag x) :data)]
	(.trim (first (:content x))))

	result {:author (.trim (first (first (first name-blob))))
	:data data-blob}]
	(println result))


	;; Output:
	;;
	;; {:author bob, :data (d1 d2 d3)}