googleAPIから天気を取得2

http://d.hatena.ne.jp/trotr/20100328
昨日のは無駄な再実装をしていた。
zip-filterあたりを使えば良かったようです。t

(require '[clojure.zip :as z])
(require '[clojure.contrib.zip-filter :as zf])
(require '[clojure.contrib.zip-filter.xml :as zfx])
(require '[clojure.xml :as x])

(defn describe-weather [area-name]
  (let [url (format "http://www.google.com/ig/api?weather=%s" area-name)
	zip-xml (z/xml-zip (x/parse url))
	conditions (zfx/xml-> zip-xml :weather zf/children :current_conditions zf/children)]
    (doseq [item conditions]
      (->> item first :attrs :data println))))
(describe-weather "Tokyo")