Changeset 59 for lang/elisp

Timestamp:

07/26/08 14:05:30 (16 years ago)

Author:

tsuyoshi

Message:

Fix status update.

Location:

lang/elisp/wassr-mode/trunk

Files:

• ChangeLog (modified) (1 diff)
• wassr-mode.el (modified) (12 diffs)

lang/elisp/wassr-mode/trunk/ChangeLog

@@ +1 @@
+2008-07-26  Tsuyoshi CHO  <Tsuyoshi.CHO+develop@Gmail.com>
+
+        * wassr-mode.el: ステータスのアップデートできるようになった
+        (wassr-http-get, wassr-http-post): typeを追加
+        (wassr-update-status-if-not-blank, wassr-update-lambda)
+        (wassr-update-jojo, wassr-friends-timeline)
+        (wassr-erase-old-statuses): 上記typeに対応
+
 2008-07-21  Tsuyoshi CHO  <Tsuyoshi.CHO+develop@Gmail.com>
 

lang/elisp/wassr-mode/trunk/wassr-mode.el

@@ -315 +315 @@
 ;;;
 
-(defun wassr-http-get (method-class method &optional sentinel)
+(defun wassr-http-get (method-class method type &optional sentinel)
   (if (null sentinel) (setq sentinel 'wassr-http-get-default-sentinel))
 
@@ -345 +345 @@
                  request)
              (setq request
-                   (concat "GET http://" wassr-api-server "/" method-class "/" method ".xml HTTP/1.1" nl
+                   (concat "GET http://" wassr-api-server "/" method-class "/"
+                           method "." type " HTTP/1.1" nl
                            "Host: " wassr-api-server  nl
                            "User-Agent: " (wassr-user-agent) nl
@@ -497 +498 @@
       (let ((formatted-status (apply 'concat (nreverse result))))
         (add-text-properties 0 (length formatted-status)
-                             `(username ,(attr 'user-screen-name))
+                             `(username ,(attr 'user-login-id))
                              formatted-status)
         formatted-status)
@@ -503 +504 @@
 
 (defun wassr-http-post
-  (method-class method &optional parameters contents sentinel)
+  (method-class method type &optional parameters contents sentinel)
   "Send HTTP POST request to `wassr-api-server'
 
@@ -537 +538 @@
              request)
          (setq  request
-                (concat "POST http://" wassr-api-server  "/" method-class "/" method ".xml?"
+                (concat "POST http://" wassr-api-server  "/" method-class "/"
+                        method "." type "?"
                         (if parameters
                             (mapconcat
@@ -683 +685 @@
        0 (length user-login-id)
        `(mouse-face highlight
-                    uri ,(concat "http://wassr.jp/user/" user-screen-name)
+                    uri ,(concat "http://wassr.jp/user/" user-login-id)
                     face wassr-username-face)
        user-login-id)
@@ -692 +694 @@
        `(mouse-face highlight
                     face wassr-username-face
-                    uri ,(concat "http://wassr.jp/user/" user-screen-name)
+                    uri ,(concat "http://wassr.jp/user/" user-login-id)
                     face wassr-username-face)
        user-screen-name)
@@ -809 +811 @@
   (if (string-match "^\\s-*\\(?:@[-_a-z0-9]+\\)?\\s-*$" status)
       nil
-    (wassr-http-post "statuses" "update"
+    (wassr-http-post "statuses" "update" "json"
                           `(("status" . ,status)
                             ("source" . "ws-mode")))
@@ -825 +827 @@
   (interactive)
   (wassr-http-post
-   "statuses" "update"
+   "statuses" "update" "json"
    `(("status" . "\xd34b\xd22b\xd26f\xd224\xd224\xd268\xd34b")
      ("source" . "ws-mode"))))
@@ -833 +835 @@
                     msg)
       (wassr-http-post
-       "statuses" "update"
+       "statuses" "update" "json"
        `(("status" . ,(concat
                        "@" usr " "
@@ -865 +867 @@
     (if (not buf)
         (wassr-stop)
-      (wassr-http-get "statuses" "friends_timeline")
+      (wassr-http-get "statuses" "friends_timeline" "xml")
       ))
 
@@ -895 +897 @@
   (interactive)
   (setq wassr-friends-timeline-data nil)
-  (wassr-http-get "statuses" "friends_timeline"))
+  (wassr-http-get "statuses" "friends_timeline" "xml"))
 
 (defun wassr-click ()