Changeset 137 for lang/elisp/twittering-mode

Timestamp:

06/17/09 16:35:09 (15 years ago)

Author:

tsuyoshi

Message:

add support ReTweet?

Location:

lang/elisp/twittering-mode/trunk

Files:

• ChangeLog (modified) (2 diffs)
• twittering-mode.el (modified) (3 diffs)

lang/elisp/twittering-mode/trunk/ChangeLog

@@ +1 @@
+2009-06-18  Tsuyoshi CHO  <Tsuyoshi.CHO+develop@Gmail.com>
+
+        * twittering-mode.el (twittering-mode-map)
+        (twittering-format-status, twittering-retweet): Add new feature
+        ReTweet
+
 2009-06-18  Alberto Garcia  <agarcia@igalia.com>
 
@@ -9 +15 @@
         Code refactoring. No need to use (format) to convert a string.
 
-2009-06-18  Tsuyoshi CHO  <tsuyoshi_cho@yahoo.co.jp>
+2009-06-18  Tsuyoshi CHO  <Tsuyoshi.CHO+develop@Gmail.com>
 
         * twittering-mode.el (twittering-status-format)

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

@@ -267 +267 @@
       (define-key km "\C-c\C-s" 'twittering-update-status-interactive)
       (define-key km "\C-c\C-e" 'twittering-erase-old-statuses)
+      (define-key km "\C-c\C-m" 'twittering-retweet)
       (define-key km "\C-m" 'twittering-enter)
       (define-key km "\C-c\C-l" 'twittering-update-lambda)
@@ -619 +620 @@
         (add-text-properties 0 (length formatted-status)
                              `(username ,(attr 'user-screen-name)
-                                        id ,(attr 'id))
+                                        id ,(attr 'id)
+                                        text ,(attr 'text))
                              formatted-status)
         formatted-status)
@@ -1100 +1102 @@
           (browse-url uri)))))
 
+(defun twittering-retweet ()
+  (interactive)
+  (let ((username (get-text-property (point) 'username))
+        (id (get-text-property (point) 'id))
+        (text (get-text-property (point) 'text)))
+    (when username
+        (twittering-update-status-from-minibuffer
+         (concat "RT: " text " (via @" username ")") id))))
+
 (defun twittering-view-user-page ()
   (interactive)