twitter4j - SearchTweets

TwitterのUIとしてのClojureを模索してみる。

https://gist.github.com/775816

(import '(twitter4j Query
		    QueryResult
		    Tweet
		    Twitter
		    TwitterException
		    TwitterFactory)
	'(twitter4j.http AccessToken
			 RequestToken)
	'(java.util List
		    Properties))

(defn search-tweet [query]
  (let [twitter (.getInstance (TwitterFactory.))]
    (try
      (def result (. twitter search (Query. query)))
      (for [tweet (.getTweets result)]
	(println "@" (.getFromUser tweet) " - " (.getText tweet)))
      (catch TwitterException te (println "Failed to search tweets: " (.getMessage te))))))