Fix imports, typo, add home-timeline function

mikem · drone29a · commit 7a462d231817 · 2010-07-30T07:40:54.000+08:00
diff --git a/src/twitter.clj b/src/twitter.clj
@@ -1,8 +1,7 @@
 (ns twitter
-  (:use [clojure.contrib.json.read]
+  (:use [clojure.contrib.json :only [read-json]]
         [clojure.contrib.str-utils :only [re-gsub]]
-        [clojure.contrib.java-utils :only [as-str]]
-        [clojure.contrib.seq-utils :only [flatten]])
+        [clojure.contrib.java-utils :only [as-str]])
   (:require [clojure.set :as set]
             [com.twinql.clojure.http :as http]
             [twitter.query :as query]
@@ -108,6 +107,16 @@ take any required and optional arguments and call the associated Twitter method.
    :page]
   (comp #(:content %) status-handler))
 
+(def-twitter-method home-timeline
+  :get
+  "twitter.com/statuses/home_timeline.json"
+  []
+  [:since-id
+   :max-id
+   :count
+   :page]
+  (comp #(:content %) status-handler))
+
 (def-twitter-method mentions
   :get
   "twitter.com/statuses/mentions.json"
@@ -268,7 +277,7 @@ take any required and optional arguments and call the associated Twitter method.
   []
   (comp #(:content %) status-handler))
 
-(def-twitter-method verifiy-credentials
+(def-twitter-method verify-credentials
   :get
   "twitter.com/account/verify_credentials.json"
   []
@@ -592,4 +601,4 @@ the Twitter API."
   (fn [result]
     (let [headers (into {} (:headers result))]
       (when (= (headers "X-RateLimit-Remaining") "0")
-        (handler-fn result)))))
+        (handler-fn result)))))
