Changeset 137 for lang/elisp/twittering-mode/trunk/twittering-mode.el

Timestamp:

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

Author:

tsuyoshi

Message:

add support ReTweet?

Files:

• lang/elisp/twittering-mode/trunk/twittering-mode.el (modified) (3 diffs)

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)