Changeset 138 for lang/elisp

Show
Ignore:
Timestamp:
06/18/09 14:19:32 (15 years ago)
Author:
tsuyoshi
Message:

support sign and some fix. coming new Author Alberto.

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

Legend:

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

    r137 r138  
     12009-06-18  Tsuyoshi CHO  <Tsuyoshi.CHO+develop@Gmail.com> 
     2 
     3        * twittering-mode.el (twittering-sign-simple-string) 
     4        (twittering-sign-string-default-function) 
     5        (twittering-sign-string-function, twittering-sign-string): Add 
     6        new. 
     7        (twittering-update-status-if-not-blank): Fix params, support sign. 
     8 
    192009-06-18  Tsuyoshi CHO  <Tsuyoshi.CHO+develop@Gmail.com> 
    210 
  • lang/elisp/twittering-mode/trunk/twittering-mode.el

    r137 r138  
    66;; Author: Y. Hayamizu <y.hayamizu@gmail.com> 
    77;;         Tsuyoshi CHO <Tsuyoshi.CHO+develop@Gmail.com> 
     8;;         Alberto Garcia  <agarcia@igalia.com> 
    89;; Created: Sep 4, 2007 
    910;; Version: 0.4 
    1011;; Keywords: twitter web 
    1112;; URL: http://lambdarepos.svnrepository.com/share/trac.cgi/browser/lang/elisp/twittering-mode 
    12  
    13 ;; Modified by Alberto Garcia <agarcia@igalia.com> to add the following methods: 
    14 ;; twittering-replies-timeline 
    15 ;; twittering-public-timeline 
    16 ;; twittering-user-timeline 
    17 ;; twittering-current-timeline(-(non)interractive) 
    18 ;; twittering-other-user-timeline 
    19 ;; twittering-other-user-timeline-interactive 
    2013 
    2114;; This file is free software; you can redistribute it and/or modify 
     
    5447(require 'parse-time) 
    5548 
    56 (defconst twittering-mode-version "0.7") 
     49(defconst twittering-mode-version "0.8") 
    5750 
    5851(defun twittering-mode-version () 
     
    170163          twittering-mode-version)) 
    171164 
     165(defvar twittering-sign-simple-string nil) 
     166 
     167(defun twittering-sign-string-default-function () 
     168  "Tweet append sign string:simple " 
     169  (if twittering-sign-simple-string 
     170      (concat " [" twittering-sign-simple-string "]") 
     171    "")) 
     172 
    172173(defvar twittering-user-agent-function 'twittering-user-agent-default-function) 
     174(defvar twittering-sign-string-function 'twittering-sign-string-default-function) 
    173175 
    174176(defun twittering-user-agent () 
    175177  "Return User-Agent header string." 
    176178  (funcall twittering-user-agent-function)) 
     179 
     180(defun twittering-sign-string () 
     181  "Return Tweet sign string." 
     182  (funcall twittering-sign-string-function)) 
    177183 
    178184;;; to show image files 
     
    943949  (if (string-match "^\\s-*\\(?:@[-_a-z0-9]+\\)?\\s-*$" status) 
    944950      nil 
    945     (let ((parameters (append `(("status" . ,status) 
    946                                 ("source" . "twmode")) 
    947                               (if reply-to-id 
    948                                   `(("in_reply_to_status_id" 
    949                                      . ,reply-to-id)))))) 
     951    (setq status (concat status (twittering-sign-string))) 
     952    (let ((parameters `(("status" . ,status) 
     953                        ("source" . "twmode") 
     954                        ,@(if reply-to-id 
     955                              `(("in_reply_to_status_id" 
     956                                 . ,reply-to-id)))))) 
    950957      (twittering-http-post "statuses" "update" parameters)) 
    951958    t))