friends_timeline の取得件数を可変にした。

hokorobi · hokorobi · commit 7c081160b543 · 2009-10-28T18:53:29.000+09:00
diff --git a/site-lisp/twitter/api-json.l b/site-lisp/twitter/api-json.l
@@ -286,12 +286,12 @@
 	      (format nil "user_timeline/~A.json" target)
 	    "user_timeline.json")))
 
-(defun url-friends_timeline (&optional target)
+(defun url-friends_timeline (&optional target count)
   (concat *api-url-root*
 	  "statuses/"
 	  (if target
-	      (format nil "friends_timeline/~A.json" target)
-	    "friends_timeline.json")))
+	      (format nil "friends_timeline/~A.json?count=~A" target count)
+            (format nil "friends_timeline.json?count=~A" count))))
 (defun url-replies_timeline ()
   (concat *api-url-root*
 	  "statuses/"
diff --git a/site-lisp/twitter/api-xml.l b/site-lisp/twitter/api-xml.l
@@ -223,12 +223,12 @@
 	      (format nil "user_timeline/~A.xml" target)
 	    "user_timeline.xml")))
 
-(defun url-friends_timeline (&optional target)
+(defun url-friends_timeline (&optional target count)
   (concat *api-url-root*
 	  "statuses/"
 	  (if target
-	      (format nil "friends_timeline/~A.xml" target)
-	    "friends_timeline.xml")))
+	      (format nil "friends_timeline/~A.xml?count=~A" target count)
+            (format nil "friends_timeline.xml?count=~A" count))))
 
 (defun url-replies_timeline ()
   (concat *api-url-root*
diff --git a/site-lisp/twitter/api.l b/site-lisp/twitter/api.l
@@ -127,7 +127,7 @@
     (junk::junk-http-add-header "X-Twitter-Client" *client-name* headers)
     (junk::junk-http-add-header "X-Twitter-Client-Version" *client-version* headers)
     (when *client-url*
-      (junk::junk-http-add-header "X-Twitter-Client-Url" *client-url* headers))
+      (junk::junk-http-add-header "X-Twitter-Client-URL" *client-url* headers))
     (when (and username password)
       (junk::junk-http-add-header "Authorization"
 				  (concat "Basic "
@@ -245,7 +245,7 @@
     (fetch-statuses url tmpfile headers force)))
 
 (defun statuses-friends_timeline (username password &optional force target)
-  (let* ((url (url-friends_timeline target))
+  (let* ((url (url-friends_timeline target *summary-friends-timeline-count*))
 	 (tmpfile (local-file url username))
 	 (headers (create-request-headers username password)))
     (fetch-statuses url tmpfile headers force)))
diff --git a/site-lisp/twitter/config.l.sample b/site-lisp/twitter/config.l.sample
@@ -52,3 +52,5 @@
 ;(setq *summary-search-max* 20)
 ;; &#65533;&#65533;&#65533;&#65533;&#65533;&#65533;&#65533;&#780;&#65533;&#65533;&#65533;w&#65533;&#65533;
 ;(setq *search-lang* "ja")
+;; friends-timeline &#65533;&#334;&#25854;&#65533;&#65533;&#65533;&#37647;&#65533;&#65533;
+;(setq *summary-friends-timeline-count* 20)
diff --git a/site-lisp/twitter/summary.l b/site-lisp/twitter/summary.l
@@ -27,6 +27,8 @@
 ;(defvar *summary-search-history* nil)
 ;(defvar *summary-search-histroy-max* 10)
 
+(defvar *summary-friends-timeline-count* 20)
+
 (defvar *summary-regexp-keyword-list*
   (compile-regexp-keyword-list
    '(

-Original file line number
+Diff line change
 ;(setq *summary-search-max* 20)
 ;; 検索時の言語指定
 ;(setq *search-lang* "ja")
 +;; friends-timeline で取得する件数
 +;(setq *summary-friends-timeline-count* 20)