ClojureでTwitter4jしてみた。（その２）

前回の続きです・・・

タイムラインの取得

(import '(twitter4j Twitter))
(def id "hogehoge")
(def pw "piyopiyo")
(def twitter (new Twitter id pw))

(def statuses (.getFriendsTimeline twitter))
(.. (first statuses) getText)
(.. (first statuses) getUser getName)

検索

(import '(twitter4j Query))
(import '(twitter4j Twitter))
(use 'clojure.contrib.str-utils)

(def twitter_noid (new Twitter))
(def query (new Query "clojure twitter4j"))
(def result (.search twitter_noid query))
(print (str-join "\n" (map #(.getText %) (.getTweets result))))

※このAPIはログインが不要です。

おまけ：Proxyを利用する場合

(System/setProperty "http.proxyHost" "proxy.hoge.co.jp")
(System/setProperty "http.proxyPort" "8080")

または

(doto (System/getProperties)
  (.setProperty "http.proxyHost" "proxy.hoge.co.jp")
  (.setProperty "http.proxyPort" "8080"))