Twitter4j で取得した情報をMapに落としこむ

ポイント

zipmap を使用してMapを生成

ソースコード

xxx.clj

(ns sier-twitter-clj.core
  (:import [twitter4j TwitterFactory Query TwitterException])
  (:require [clojure.java.io :as io]))

(def twitter (. (TwitterFactory.) getInstance))

;; get twitter time line
;; return map
(defn get-timeline []
  (def x (.getHomeTimeline twitter))
  (map #(zipmap [:screenName :name :text] [(.. % getUser getScreenName)
                                           (.. % getUser getName)
                                           (.getText %)
                                           ]) x))

(defn -main []
  (def x (get-timeline))
  (println (class x))
  (println (first x))
  (println (second x)))

終わりに

もっと上手いやり方あるけど？
っていうのがあれば教えて下さい。