Changeset 137 for lang/elisp

Show
Ignore:
Timestamp:
06/17/09 16:35:09 (15 years ago)
Author:
tsuyoshi
Message:

add support ReTweet?

Location:
lang/elisp/twittering-mode/trunk
Files:
2 modified

Legend:

Unmodified
Added
Removed
  • lang/elisp/twittering-mode/trunk/ChangeLog

    r136 r137  
     12009-06-18  Tsuyoshi CHO  <Tsuyoshi.CHO+develop@Gmail.com> 
     2 
     3        * twittering-mode.el (twittering-mode-map) 
     4        (twittering-format-status, twittering-retweet): Add new feature 
     5        ReTweet 
     6 
    172009-06-18  Alberto Garcia  <agarcia@igalia.com> 
    28 
     
    915        Code refactoring. No need to use (format) to convert a string. 
    1016 
    11 2009-06-18  Tsuyoshi CHO  <tsuyoshi_cho@yahoo.co.jp> 
     172009-06-18  Tsuyoshi CHO  <Tsuyoshi.CHO+develop@Gmail.com> 
    1218 
    1319        * twittering-mode.el (twittering-status-format) 
  • lang/elisp/twittering-mode/trunk/twittering-mode.el

    r136 r137  
    267267      (define-key km "\C-c\C-s" 'twittering-update-status-interactive) 
    268268      (define-key km "\C-c\C-e" 'twittering-erase-old-statuses) 
     269      (define-key km "\C-c\C-m" 'twittering-retweet) 
    269270      (define-key km "\C-m" 'twittering-enter) 
    270271      (define-key km "\C-c\C-l" 'twittering-update-lambda) 
     
    619620        (add-text-properties 0 (length formatted-status) 
    620621                             `(username ,(attr 'user-screen-name) 
    621                                         id ,(attr 'id)) 
     622                                        id ,(attr 'id) 
     623                                        text ,(attr 'text)) 
    622624                             formatted-status) 
    623625        formatted-status) 
     
    11001102          (browse-url uri))))) 
    11011103 
     1104(defun twittering-retweet () 
     1105  (interactive) 
     1106  (let ((username (get-text-property (point) 'username)) 
     1107        (id (get-text-property (point) 'id)) 
     1108        (text (get-text-property (point) 'text))) 
     1109    (when username 
     1110        (twittering-update-status-from-minibuffer 
     1111         (concat "RT: " text " (via @" username ")") id)))) 
     1112 
    11021113(defun twittering-view-user-page () 
    11031114  (interactive)