SimpleTwitterSearch.clj

(ns sample
  (:import (twitter4j Query
		      QueryResult
		      Tweet
		      Twitter
		      TwitterFactory)))

(def twitter-api (.. (TwitterFactory.) getInstance))

(defn make-query [word]
  (let [q (Query.)]
    (do (. q setQuery word)
	q)))

(defn get-search-result [word]
  (let [q (make-query word)
	res (. twitter-api search q)]
    (.getTweets res)))

(defn search-tweets [& word]
  (for [tweet (get-search-result (or (first word) "#clojure"))]
    (let [user (.getFromUser tweet)
	  text (.getText tweet)]
      (str "@" user ": " text))))

(defn search [& word]
  (println
   (reduce
    (fn [x y] (str x "\n" y)) (search-tweets (first word)))))

(search)