Changeset 136 for lang/elisp/twittering-mode/trunk

Timestamp:

06/17/09 16:02:50 (15 years ago)

Author:

tsuyoshi

Message:

twittering-mode support in_reply_to_status_id post/status

Location:

lang/elisp/twittering-mode/trunk

Files:

• ChangeLog (modified) (1 diff)
• twittering-mode.el (modified) (11 diffs)

lang/elisp/twittering-mode/trunk/ChangeLog

@@ +1 @@
+2009-06-18  Alberto Garcia  <agarcia@igalia.com>
+
+        * twittering-mode.el
+        (twittering-status-to-status-datum):
+        Read 'in_reply_to_status_id' and 'in_reply_to_user_id' attributes.
+        (twittering-format-status):
+        Add new '%r' format string for " in reply to user".
+        (twittering-update-status-if-not-blank):
+        Code refactoring. No need to use (format) to convert a string.
+
+2009-06-18  Tsuyoshi CHO  <tsuyoshi_cho@yahoo.co.jp>
+
+        * twittering-mode.el (twittering-status-format)
+        (twittering-format-status, twittering-status-to-status-datum)
+        (twittering-update-status-if-not-blank, twittering-enter): Fix
+        in_reply_to_status_id support not work problem, and marge Alberl
+        patch below.
+
 2009-06-17  Tsuyoshi CHO  <Tsuyoshi.CHO+develop@Gmail.com>
 
-        * twittering-mode.el (twittering-last-timeline-interactive): New add variable.
+        * twittering-mode.el (twittering-last-timeline-interactive): New
+        add variable.
         (twittering-new-tweets-count): Ditto.
         (twittering-new-tweets-hook): Ditto.

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

@@ -98 +98 @@
 
 (defvar twittering-status-format nil)
-(setq twittering-status-format "%i %s,  %@:\n  %t // from %f%L")
+(setq twittering-status-format "%i %s,  %@:\n  %t // from %f%L%r")
 ;; %s - screen_name
 ;; %S - name
@@ -105 +105 @@
 ;; %l - location
 ;; %L - " [location]"
+;; %r - " in reply to user"
 ;; %u - url
 ;; %j - user.id
@@ -540 +541 @@
           ((?j)                         ; %j - user.id
            (list-push (attr 'user-id) result))
+          ((?r)                         ; %r - in_reply_to_status_id
+           (let ((reply-id (attr 'in-reply-to-status-id))
+                 (reply-name (attr 'in-reply-to-screen-name)))
+             (unless (or (null reply-id) (string= "" reply-id)
+                         (null reply-name) (string= "" reply-name))
+               (let ((in-reply-to-string (format "in reply to %s" reply-name))
+                     (url (twittering-get-status-url reply-name reply-id)))
+                 (add-text-properties
+                  0 (length in-reply-to-string)
+                  `(mouse-face highlight
+                               face twittering-uri-face
+                               uri ,url)
+                  in-reply-to-string)
+                 (list-push (concat " " in-reply-to-string) result)))))
           ((?p)                         ; %p - protected?
            (let ((protected (attr 'user-protected)))
@@ -603 +618 @@
       (let ((formatted-status (apply 'concat (nreverse result))))
         (add-text-properties 0 (length formatted-status)
-                             `(username ,(attr 'user-screen-name))
+                             `(username ,(attr 'user-screen-name)
+                                        id ,(attr 'id))
                              formatted-status)
         formatted-status)
@@ -744 +760 @@
     (let* ((status-data (cddr status))
            id text source created-at truncated
+           in-reply-to-status-id
+           in-reply-to-screen-name
            (user-data (cddr (assq 'user status-data)))
            user-id user-name
@@ -761 +779 @@
       (setq created-at (assq-get 'created_at status-data))
       (setq truncated (assq-get 'truncated status-data))
+      (setq in-reply-to-status-id
+            (twittering-decode-html-entities
+             (assq-get 'in_reply_to_status_id status-data)))
+      (setq in-reply-to-screen-name
+            (twittering-decode-html-entities
+             (assq-get 'in_reply_to_screen_name status-data)))
       (setq user-id (assq-get 'id user-data))
       (setq user-name (twittering-decode-html-entities
@@ -779 +803 @@
        `(mouse-face highlight
                     uri ,(concat "http://twitter.com/" user-screen-name)
-                    status-id ,id
                     face twittering-username-face)
        user-name)
@@ -788 +811 @@
        `(mouse-face highlight
                     uri ,(concat "http://twitter.com/" user-screen-name)
-                    status-id ,id
                     face twittering-username-face)
        user-screen-name)
@@ -841 +863 @@
          `(,sym . ,(symbol-value sym)))
        '(id text source created-at truncated
+            in-reply-to-status-id
+            in-reply-to-screen-name
             user-id user-name user-screen-name user-location
             user-description
@@ -917 +941 @@
   (if (string-match "^\\s-*\\(?:@[-_a-z0-9]+\\)?\\s-*$" status)
       nil
-    (let ((parameters `(("status" . ,status)
-                        ("source" . "twmode"))))
-      (twittering-http-post "statuses" "update"
-                            (if reply-to-id
-                                (cons `("in_reply_to_status_id" . ,(format "%s" reply-to-id))
-                                      parameters)
-                              parameters)))
+    (let ((parameters (append `(("status" . ,status)
+                                ("source" . "twmode"))
+                              (if reply-to-id
+                                  `(("in_reply_to_status_id"
+                                     . ,reply-to-id))))))
+      (twittering-http-post "statuses" "update" parameters))
     t))
 
@@ -1070 +1093 @@
   (interactive)
   (let ((username (get-text-property (point) 'username))
-        (status-id (get-text-property (point) 'status-id))
+        (id (get-text-property (point) 'id))
         (uri (get-text-property (point) 'uri)))
     (if username
-        (twittering-update-status-from-minibuffer (concat "@" username " ")
-                                                  status-id)
+        (twittering-update-status-from-minibuffer (concat "@" username " ") id)
       (if uri
           (browse-url uri)))))