Changeset 138 for lang/elisp/twittering-mode

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:

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

lang/elisp/twittering-mode/trunk/ChangeLog

@@ +1 @@
+2009-06-18  Tsuyoshi CHO  <Tsuyoshi.CHO+develop@Gmail.com>
+
+        * twittering-mode.el (twittering-sign-simple-string)
+        (twittering-sign-string-default-function)
+        (twittering-sign-string-function, twittering-sign-string): Add
+        new.
+        (twittering-update-status-if-not-blank): Fix params, support sign.
+
 2009-06-18  Tsuyoshi CHO  <Tsuyoshi.CHO+develop@Gmail.com>
 

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

@@ -6 +6 @@
 ;; Author: Y. Hayamizu <y.hayamizu@gmail.com>
 ;;         Tsuyoshi CHO <Tsuyoshi.CHO+develop@Gmail.com>
+;;         Alberto Garcia  <agarcia@igalia.com>
 ;; Created: Sep 4, 2007
 ;; Version: 0.4
 ;; Keywords: twitter web
 ;; URL: http://lambdarepos.svnrepository.com/share/trac.cgi/browser/lang/elisp/twittering-mode
-
-;; Modified by Alberto Garcia <agarcia@igalia.com> to add the following methods:
-;; twittering-replies-timeline
-;; twittering-public-timeline
-;; twittering-user-timeline
-;; twittering-current-timeline(-(non)interractive)
-;; twittering-other-user-timeline
-;; twittering-other-user-timeline-interactive
 
 ;; This file is free software; you can redistribute it and/or modify
@@ -54 +47 @@
 (require 'parse-time)
 
-(defconst twittering-mode-version "0.7")
+(defconst twittering-mode-version "0.8")
 
 (defun twittering-mode-version ()
@@ -170 +163 @@
           twittering-mode-version))
 
+(defvar twittering-sign-simple-string nil)
+
+(defun twittering-sign-string-default-function ()
+  "Tweet append sign string:simple "
+  (if twittering-sign-simple-string
+      (concat " [" twittering-sign-simple-string "]")
+    ""))
+
 (defvar twittering-user-agent-function 'twittering-user-agent-default-function)
+(defvar twittering-sign-string-function 'twittering-sign-string-default-function)
 
 (defun twittering-user-agent ()
   "Return User-Agent header string."
   (funcall twittering-user-agent-function))
+
+(defun twittering-sign-string ()
+  "Return Tweet sign string."
+  (funcall twittering-sign-string-function))
 
 ;;; to show image files
@@ -943 +949 @@
   (if (string-match "^\\s-*\\(?:@[-_a-z0-9]+\\)?\\s-*$" status)
       nil
-    (let ((parameters (append `(("status" . ,status)
-                                ("source" . "twmode"))
-                              (if reply-to-id
-                                  `(("in_reply_to_status_id"
-                                     . ,reply-to-id))))))
+    (setq status (concat status (twittering-sign-string)))
+    (let ((parameters `(("status" . ,status)
+                        ("source" . "twmode")
+                        ,@(if reply-to-id
+                              `(("in_reply_to_status_id"
+                                 . ,reply-to-id))))))
       (twittering-http-post "statuses" "update" parameters))
     t))