Index: lang/elisp/twittering-mode/branches/gan2/twittering-mode.el
===================================================================
--- lang/elisp/twittering-mode/branches/RB-0.3/twittering-mode.el (revision 25)
+++ lang/elisp/twittering-mode/branches/gan2/twittering-mode.el (revision 28)
@@ -48,4 +48,13 @@
(defconst twittering-mode-version "0.3")
+(defun twittering-mode-version ()
+ "Display a message for twittering-mode version."
+ (interactive)
+ (let ((version-string
+ (format "twittering-mode-v%s" twittering-mode-version)))
+ (if (interactive-p)
+ (message "%s" version-string)
+ version-string)))
+
(defvar twittering-mode-map (make-sparse-keymap))
@@ -66,20 +75,20 @@
(defvar twittering-status-format nil)
(setq twittering-status-format "%i %s, %@:\n %t // from %f%L")
-; %s - screen_name
-; %S - name
-; %i - profile_image
-; %d - description
-; %l - location
-; %L - " [location]"
-; %u - url
-; %j - user.id
-; %p - protected?
-; %c - created_at (raw UTC string)
-; %C{time-format-str} - created_at (formatted with time-format-str)
-; %@ - X seconds ago
-; %t - text
-; %' - truncated
-; %f - source
-; %# - id
+;; %s - screen_name
+;; %S - name
+;; %i - profile_image
+;; %d - description
+;; %l - location
+;; %L - " [location]"
+;; %u - url
+;; %j - user.id
+;; %p - protected?
+;; %c - created_at (raw UTC string)
+;; %C{time-format-str} - created_at (formatted with time-format-str)
+;; %@ - X seconds ago
+;; %t - text
+;; %' - truncated
+;; %f - source
+;; %# - id
(defvar twittering-buffer "*twittering*")
@@ -99,9 +108,9 @@
(if (bufferp buffer)
(if (buffer-live-p buffer)
- buffer
- (generate-new-buffer (buffer-name buffer)))
+ buffer
+ (generate-new-buffer (buffer-name buffer)))
(if (stringp buffer)
- (or (get-buffer buffer)
- (generate-new-buffer buffer)))))
+ (or (get-buffer buffer)
+ (generate-new-buffer buffer)))))
(defun assocref (item alist)
@@ -120,18 +129,18 @@
(interactive)
(setq twittering-proxy-use
- (not twittering-proxy-use))
+ (not twittering-proxy-use))
(message "%s %s"
- "Use Proxy:"
- (if twittering-proxy-use
- "on" "off")))
+ "Use Proxy:"
+ (if twittering-proxy-use
+ "on" "off")))
(defun twittering-user-agent-default-function ()
"Twittering mode default User-Agent function."
(concat "Emacs/"
- (int-to-string emacs-major-version) "." (int-to-string
- emacs-minor-version)
- " "
- "Twittering-mode/"
- twittering-mode-version))
+ (int-to-string emacs-major-version) "." (int-to-string
+ emacs-minor-version)
+ " "
+ "Twittering-mode/"
+ twittering-mode-version))
(defvar twittering-user-agent-function 'twittering-user-agent-default-function)
@@ -149,5 +158,5 @@
(defvar twittering-tmp-dir
(expand-file-name (concat "twmode-images-" (user-login-name))
- temporary-file-directory))
+ temporary-file-directory))
(defvar twittering-icon-mode nil "You MUST NOT CHANGE this variable directory. You should change through function'twittering-icon-mode'")
@@ -155,15 +164,15 @@
(interactive)
(setq twittering-icon-mode
- (if twittering-icon-mode
- (if (null arg)
- nil
- (> (prefix-numeric-value arg) 0))
- (when (or (null arg)
- (and arg (> (prefix-numeric-value arg) 0)))
- (when (file-writable-p twittering-tmp-dir)
- (progn
- (if (not (file-directory-p twittering-tmp-dir))
- (make-directory twittering-tmp-dir))
- t)))))
+ (if twittering-icon-mode
+ (if (null arg)
+ nil
+ (> (prefix-numeric-value arg) 0))
+ (when (or (null arg)
+ (and arg (> (prefix-numeric-value arg) 0)))
+ (when (file-writable-p twittering-tmp-dir)
+ (progn
+ (if (not (file-directory-p twittering-tmp-dir))
+ (make-directory twittering-tmp-dir))
+ t)))))
(twittering-render-friends-timeline))
@@ -171,14 +180,14 @@
(interactive)
(setq twittering-scroll-mode
- (if (null arg)
- (not twittering-scroll-mode)
- (> (prefix-numeric-value arg) 0))))
+ (if (null arg)
+ (not twittering-scroll-mode)
+ (> (prefix-numeric-value arg) 0))))
(defun twittering-jojo-mode (&optional arg)
(interactive)
(setq twittering-jojo-mode
- (if (null arg)
- (not twittering-jojo-mode)
- (> (prefix-numeric-value arg) 0))))
+ (if (null arg)
+ (not twittering-jojo-mode)
+ (> (prefix-numeric-value arg) 0))))
(defvar twittering-image-stack nil)
@@ -193,5 +202,5 @@
(defun twittering-local-strftime (fmt string)
(format-time-string fmt ; like "%Y-%m-%d %H:%M:%S", shown in localtime
- (apply 'encode-time (parse-time-string string))))
+ (apply 'encode-time (parse-time-string string))))
(defvar twittering-debug-mode nil)
@@ -203,14 +212,14 @@
`(let ((,obsym ,obj))
(if twittering-debug-mode
- (with-current-buffer (twittering-debug-buffer)
- (insert (prin1-to-string ,obsym))
- (newline)
- ,obsym)
- ,obsym))))
+ (with-current-buffer (twittering-debug-buffer)
+ (insert (prin1-to-string ,obsym))
+ (newline)
+ ,obsym)
+ ,obsym))))
(defun twittering-debug-mode ()
(interactive)
(setq twittering-debug-mode
- (not twittering-debug-mode))
+ (not twittering-debug-mode))
(message (if twittering-debug-mode "debug mode:on" "debug mode:off")))
@@ -224,6 +233,8 @@
(define-key km [mouse-1] 'twittering-click)
(define-key km "\C-c\C-v" 'twittering-view-user-page)
- (define-key km "j" 'next-line)
- (define-key km "k" 'previous-line)
+ ;; (define-key km "j" 'next-line)
+ ;; (define-key km "k" 'previous-line)
+ (define-key km "j" 'twittering-next-message)
+ (define-key km "k" 'twittering-previous-message)
(define-key km "l" 'forward-char)
(define-key km "h" 'backward-char)
@@ -242,11 +253,11 @@
()
(setq twittering-mode-syntax-table (make-syntax-table))
- ; (modify-syntax-entry ? "" twittering-mode-syntax-table)
+ ;; (modify-syntax-entry ? "" twittering-mode-syntax-table)
(modify-syntax-entry ?\" "w" twittering-mode-syntax-table)
)
(defun twittering-mode-init-variables ()
- ;(make-variable-buffer-local 'variable)
- ;(setq variable nil)
+ ;; (make-variable-buffer-local 'variable)
+ ;; (setq variable nil)
(font-lock-mode -1)
(defface twittering-username-face
@@ -266,10 +277,10 @@
,@(mapcar
(lambda (clause)
- (let ((keylist (car clause))
- (body (cdr clause)))
- `(,(if (listp keylist)
- `(or ,@(mapcar (lambda (key) `(string-equal ,str ,key)) keylist))
- 't)
- ,@body)))
+ (let ((keylist (car clause))
+ (body (cdr clause)))
+ `(,(if (listp keylist)
+ `(or ,@(mapcar (lambda (key) `(string-equal ,str ,key)) keylist))
+ 't)
+ ,@body)))
clauses)))
@@ -311,51 +322,51 @@
(let (proc server port
- (proxy-user twittering-proxy-user)
- (proxy-password twittering-proxy-password))
+ (proxy-user twittering-proxy-user)
+ (proxy-password twittering-proxy-password))
(condition-case nil
- (progn
- (if (and twittering-proxy-use twittering-proxy-server)
- (setq server twittering-proxy-server
- port (if (integerp twittering-proxy-port)
- (int-to-string twittering-proxy-port)
- twittering-proxy-port))
- (setq server "twitter.com"
- port "80"))
- (setq proc
- (open-network-stream
- "network-connection-process" (twittering-http-buffer)
- server (string-to-number port)))
- (set-process-sentinel proc sentinel)
- (process-send-string
- proc
- (let ((nl "\r\n")
- request)
- (setq request
- (concat "GET http://twitter.com/" method-class "/" method ".xml HTTP/1.1" nl
- "Host: twitter.com" nl
- "User-Agent: " (twittering-user-agent) nl
- "Authorization: Basic "
- (base64-encode-string
- (concat twittering-username ":" (twittering-get-password)))
- nl
- "Accept: text/xml"
- ",application/xml"
- ",application/xhtml+xml"
- ",application/html;q=0.9"
- ",text/plain;q=0.8"
- ",image/png,*/*;q=0.5" nl
- "Accept-Charset: utf-8;q=0.7,*;q=0.7" nl
- (when twittering-proxy-use
- "Proxy-Connection: Keep-Alive" nl
- (when (and proxy-user proxy-password)
- (concat
- "Proxy-Authorization: Basic "
- (base64-encode-string
- (concat proxy-user ":"
- proxy-password))
- nl)))
- nl nl))
- (debug-print (concat "GET Request\n" request))
- request)))
+ (progn
+ (if (and twittering-proxy-use twittering-proxy-server)
+ (setq server twittering-proxy-server
+ port (if (integerp twittering-proxy-port)
+ (int-to-string twittering-proxy-port)
+ twittering-proxy-port))
+ (setq server "twitter.com"
+ port "80"))
+ (setq proc
+ (open-network-stream
+ "network-connection-process" (twittering-http-buffer)
+ server (string-to-number port)))
+ (set-process-sentinel proc sentinel)
+ (process-send-string
+ proc
+ (let ((nl "\r\n")
+ request)
+ (setq request
+ (concat "GET http://twitter.com/" method-class "/" method ".xml HTTP/1.1" nl
+ "Host: twitter.com" nl
+ "User-Agent: " (twittering-user-agent) nl
+ "Authorization: Basic "
+ (base64-encode-string
+ (concat twittering-username ":" (twittering-get-password)))
+ nl
+ "Accept: text/xml"
+ ",application/xml"
+ ",application/xhtml+xml"
+ ",application/html;q=0.9"
+ ",text/plain;q=0.8"
+ ",image/png,*/*;q=0.5" nl
+ "Accept-Charset: utf-8;q=0.7,*;q=0.7" nl
+ (when twittering-proxy-use
+ "Proxy-Connection: Keep-Alive" nl
+ (when (and proxy-user proxy-password)
+ (concat
+ "Proxy-Authorization: Basic "
+ (base64-encode-string
+ (concat proxy-user ":"
+ proxy-password))
+ nl)))
+ nl nl))
+ (debug-print (concat "GET Request\n" request))
+ request)))
(error
(message "Failure: HTTP GET") nil))))
@@ -363,20 +374,20 @@
(defun twittering-http-get-default-sentinel (proc stat &optional suc-msg)
(let ((header (twittering-get-response-header))
- (body (twittering-get-response-body))
- (status nil)
- )
+ (body (twittering-get-response-body))
+ (status nil)
+ )
(if (string-match "HTTP/1\.[01] \\([a-z0-9 ]+\\)\r?\n" header)
- (progn
- (setq status (match-string-no-properties 1 header))
- (case-string
- status
- (("200 OK")
- (mapcar
- #'twittering-cache-status-datum
- (reverse (twittering-xmltree-to-status
- body)))
- (twittering-render-friends-timeline)
- (message (if suc-msg suc-msg "Success: Get.")))
- (t (message status))))
+ (progn
+ (setq status (match-string-no-properties 1 header))
+ (case-string
+ status
+ (("200 OK")
+ (mapcar
+ #'twittering-cache-status-datum
+ (reverse (twittering-xmltree-to-status
+ body)))
+ (twittering-render-friends-timeline)
+ (message (if suc-msg suc-msg "Success: Get.")))
+ (t (message status))))
(message "Failure: Bad http response.")))
)
@@ -385,14 +396,14 @@
(with-current-buffer (twittering-buffer)
(let ((point (point))
- (end (point-max)))
+ (end (point-max)))
(setq buffer-read-only nil)
(erase-buffer)
(insert
(mapconcat (lambda (status)
- (twittering-format-status status twittering-status-format))
- twittering-friends-timeline-data
- "\n"))
+ (twittering-format-status status twittering-status-format))
+ twittering-friends-timeline-data
+ "\n"))
(if twittering-image-stack
- (clear-image-cache))
+ (clear-image-cache))
(setq buffer-read-only t)
(debug-print (current-buffer))
@@ -402,106 +413,106 @@
(defun twittering-format-status (status format-str)
(flet ((attr (key)
- (assocref key status))
- (profile-image
- ()
- (let ((profile-image-url (attr 'user-profile-image-url))
- (icon-string "\n "))
- (if (string-match "/\\([^/?]+\\)\\(?:\\?\\|$\\)" profile-image-url)
- (let ((filename (match-string-no-properties 1 profile-image-url)))
- ;; download icons if does not exist
- (if (file-exists-p (concat twittering-tmp-dir
- "/" filename))
- t
- (add-to-list 'twittering-image-stack profile-image-url))
-
- (when (and icon-string twittering-icon-mode)
- (set-text-properties
- 1 2 `(display
- (image :type ,(twittering-image-type filename)
- :file ,(concat twittering-tmp-dir
- "/"
- filename)))
- icon-string)
- icon-string)
- )))))
+ (assocref key status))
+ (profile-image
+ ()
+ (let ((profile-image-url (attr 'user-profile-image-url))
+ (icon-string "\n "))
+ (if (string-match "/\\([^/?]+\\)\\(?:\\?\\|$\\)" profile-image-url)
+ (let ((filename (match-string-no-properties 1 profile-image-url)))
+ ;; download icons if does not exist
+ (if (file-exists-p (concat twittering-tmp-dir
+ "/" filename))
+ t
+ (add-to-list 'twittering-image-stack profile-image-url))
+
+ (when (and icon-string twittering-icon-mode)
+ (set-text-properties
+ 1 2 `(display
+ (image :type ,(twittering-image-type filename)
+ :file ,(concat twittering-tmp-dir
+ "/"
+ filename)))
+ icon-string)
+ icon-string)
+ )))))
(let ((cursor 0)
- (result ())
- c
- found-at)
+ (result ())
+ c
+ found-at)
(setq cursor 0)
(setq result '())
(while (setq found-at (string-match "%\\(C{\\([^}]+\\)}\\|[A-Za-z#@']\\)" format-str cursor))
- (setq c (string-to-char (match-string-no-properties 1 format-str)))
- (if (> found-at cursor)
- (list-push (substring format-str cursor found-at) result)
- "|")
- (setq cursor (match-end 1))
-
- (case c
- ((?s) ; %s - screen_name
- (list-push (attr 'user-screen-name) result))
- ((?S) ; %S - name
- (list-push (attr 'user-name) result))
- ((?i) ; %i - profile_image
- (list-push (profile-image) result))
- ((?d) ; %d - description
- (list-push (attr 'user-description) result))
- ((?l) ; %l - location
- (list-push (attr 'user-location) result))
- ((?L) ; %L - " [location]"
- (let ((location (attr 'user-location)))
- (unless (or (null location) (string= "" location))
- (list-push (concat " [" location "]") result)) ))
- ((?u) ; %u - url
- (list-push (attr 'user-url) result))
- ((?j) ; %j - user.id
- (list-push (attr 'user-id) result))
- ((?p) ; %p - protected?
- (let ((protected (attr 'user-protected)))
- (when (string= "true" protected)
- (list-push "[x]" result))))
- ((?c) ; %c - created_at (raw UTC string)
- (list-push (attr 'created-at) result))
- ((?C) ; %C{time-format-str} - created_at (formatted with time-format-str)
- (list-push (twittering-local-strftime
- (or (match-string-no-properties 2 format-str) "%H:%M:%S")
- (attr 'created-at))
- result))
- ((?@) ; %@ - X seconds ago
- (let ((created-at
- (apply
- 'encode-time
- (parse-time-string (attr 'created-at))))
- (now (current-time)))
- (let ((secs (+ (* (- (car now) (car created-at)) 65536)
- (- (cadr now) (cadr created-at)))))
- (list-push (cond ((< secs 5) "less than 5 seconds ago")
- ((< secs 10) "less than 10 seconds ago")
- ((< secs 20) "less than 20 seconds ago")
- ((< secs 30) "half a minute ago")
- ((< secs 60) "less than a minute ago")
- ((< secs 150) "1 minute ago")
- ((< secs 2400) (format "%d minutes ago"
- (/ (+ secs 30) 60)))
- ((< secs 5400) "about 1 hour ago")
- ((< secs 84600) (format "about %d hours ago"
- (/ (+ secs 1800) 3600)))
- (t (format-time-string "%I:%M %p %B %d, %Y" created-at)))
- result))))
- ((?t) ; %t - text
- (list-push ;(clickable-text)
- (attr 'text)
- result))
- ((?') ; %' - truncated
- (let ((truncated (attr 'truncated)))
- (when (string= "true" truncated)
- (list-push "..." result))))
- ((?f) ; %f - source
- (list-push (attr 'source) result))
- ((?#) ; %# - id
- (list-push (attr 'id) result))
- (t
- (list-push (char-to-string c) result)))
- )
+ (setq c (string-to-char (match-string-no-properties 1 format-str)))
+ (if (> found-at cursor)
+ (list-push (substring format-str cursor found-at) result)
+ "|")
+ (setq cursor (match-end 1))
+
+ (case c
+ ((?s) ; %s - screen_name
+ (list-push (attr 'user-screen-name) result))
+ ((?S) ; %S - name
+ (list-push (attr 'user-name) result))
+ ((?i) ; %i - profile_image
+ (list-push (profile-image) result))
+ ((?d) ; %d - description
+ (list-push (attr 'user-description) result))
+ ((?l) ; %l - location
+ (list-push (attr 'user-location) result))
+ ((?L) ; %L - " [location]"
+ (let ((location (attr 'user-location)))
+ (unless (or (null location) (string= "" location))
+ (list-push (concat " [" location "]") result)) ))
+ ((?u) ; %u - url
+ (list-push (attr 'user-url) result))
+ ((?j) ; %j - user.id
+ (list-push (attr 'user-id) result))
+ ((?p) ; %p - protected?
+ (let ((protected (attr 'user-protected)))
+ (when (string= "true" protected)
+ (list-push "[x]" result))))
+ ((?c) ; %c - created_at (raw UTC string)
+ (list-push (attr 'created-at) result))
+ ((?C) ; %C{time-format-str} - created_at (formatted with time-format-str)
+ (list-push (twittering-local-strftime
+ (or (match-string-no-properties 2 format-str) "%H:%M:%S")
+ (attr 'created-at))
+ result))
+ ((?@) ; %@ - X seconds ago
+ (let ((created-at
+ (apply
+ 'encode-time
+ (parse-time-string (attr 'created-at))))
+ (now (current-time)))
+ (let ((secs (+ (* (- (car now) (car created-at)) 65536)
+ (- (cadr now) (cadr created-at)))))
+ (list-push (cond ((< secs 5) "less than 5 seconds ago")
+ ((< secs 10) "less than 10 seconds ago")
+ ((< secs 20) "less than 20 seconds ago")
+ ((< secs 30) "half a minute ago")
+ ((< secs 60) "less than a minute ago")
+ ((< secs 150) "1 minute ago")
+ ((< secs 2400) (format "%d minutes ago"
+ (/ (+ secs 30) 60)))
+ ((< secs 5400) "about 1 hour ago")
+ ((< secs 84600) (format "about %d hours ago"
+ (/ (+ secs 1800) 3600)))
+ (t (format-time-string "%I:%M %p %B %d, %Y" created-at)))
+ result))))
+ ((?t) ; %t - text
+ (list-push ;(clickable-text)
+ (attr 'text)
+ result))
+ ((?') ; %' - truncated
+ (let ((truncated (attr 'truncated)))
+ (when (string= "true" truncated)
+ (list-push "..." result))))
+ ((?f) ; %f - source
+ (list-push (attr 'source) result))
+ ((?#) ; %# - id
+ (list-push (attr 'id) result))
+ (t
+ (list-push (char-to-string c) result)))
+ )
(list-push (substring format-str cursor) result)
(apply 'concat (nreverse result))
@@ -523,54 +534,54 @@
(let (proc server port
- (proxy-user twittering-proxy-user)
- (proxy-password twittering-proxy-password))
+ (proxy-user twittering-proxy-user)
+ (proxy-password twittering-proxy-password))
(progn
(if (and twittering-proxy-use twittering-proxy-server)
- (setq server twittering-proxy-server
- port (if (integerp twittering-proxy-port)
- (int-to-string twittering-proxy-port)
- twittering-proxy-port))
- (setq server "twitter.com"
- port "80"))
+ (setq server twittering-proxy-server
+ port (if (integerp twittering-proxy-port)
+ (int-to-string twittering-proxy-port)
+ twittering-proxy-port))
+ (setq server "twitter.com"
+ port "80"))
(setq proc
- (open-network-stream
- "network-connection-process" (twittering-http-buffer)
- server (string-to-number port)))
+ (open-network-stream
+ "network-connection-process" (twittering-http-buffer)
+ server (string-to-number port)))
(set-process-sentinel proc sentinel)
(process-send-string
proc
(let ((nl "\r\n")
- request)
- (setq request
- (concat "POST http://twitter.com/" method-class "/" method ".xml?"
- (if parameters
- (mapconcat
- (lambda (param-pair)
- (format "%s=%s"
- (twittering-percent-encode (car param-pair))
- (twittering-percent-encode (cdr param-pair))))
- parameters
- "&"))
- " HTTP/1.1" nl
- "Host: twitter.com" nl
- "User-Agent: " (twittering-user-agent) nl
- "Authorization: Basic "
- (base64-encode-string
- (concat twittering-username ":" (twittering-get-password)))
- nl
- "Content-Type: text/plain" nl
- "Content-Length: 0" nl
- (when twittering-proxy-use
- "Proxy-Connection: Keep-Alive" nl
- (when (and proxy-user proxy-password)
- (concat
- "Proxy-Authorization: Basic "
- (base64-encode-string
- (concat proxy-user ":"
- proxy-password))
- nl)))
- nl nl))
- (debug-print (concat "POST Request\n" request))
- request)))))
+ request)
+ (setq request
+ (concat "POST http://twitter.com/" method-class "/" method ".xml?"
+ (if parameters
+ (mapconcat
+ (lambda (param-pair)
+ (format "%s=%s"
+ (twittering-percent-encode (car param-pair))
+ (twittering-percent-encode (cdr param-pair))))
+ parameters
+ "&"))
+ " HTTP/1.1" nl
+ "Host: twitter.com" nl
+ "User-Agent: " (twittering-user-agent) nl
+ "Authorization: Basic "
+ (base64-encode-string
+ (concat twittering-username ":" (twittering-get-password)))
+ nl
+ "Content-Type: text/plain" nl
+ "Content-Length: 0" nl
+ (when twittering-proxy-use
+ "Proxy-Connection: Keep-Alive" nl
+ (when (and proxy-user proxy-password)
+ (concat
+ "Proxy-Authorization: Basic "
+ (base64-encode-string
+ (concat proxy-user ":"
+ proxy-password))
+ nl)))
+ nl nl))
+ (debug-print (concat "POST Request\n" request))
+ request)))))
(defun twittering-http-post-default-sentinel (proc stat &optional suc-msg)
@@ -578,13 +589,13 @@
(condition-case err-signal
(let ((header (twittering-get-response-header))
- ; (body (twittering-get-response-body)) not used now.
- (status nil))
- (string-match "HTTP/1\.1 \\([a-z0-9 ]+\\)\r?\n" header)
- (setq status (match-string-no-properties 1 header))
- (case-string status
- (("200 OK")
- (message (if suc-msg suc-msg "Success: Post")))
- (t (message status)))
- )
+ ;; (body (twittering-get-response-body)) not used now.
+ (status nil))
+ (string-match "HTTP/1\.1 \\([a-z0-9 ]+\\)\r?\n" header)
+ (setq status (match-string-no-properties 1 header))
+ (case-string status
+ (("200 OK")
+ (message (if suc-msg suc-msg "Success: Post")))
+ (t (message status)))
+ )
(error (message (prin1-to-string err-signal))))
)
@@ -611,7 +622,7 @@
(let ((content (buffer-string)))
(let ((content (buffer-string)))
- (xml-parse-region (+ (string-match "\r?\n\r?\n" content)
- (length (match-string 0 content)))
- (point-max)))
+ (xml-parse-region (+ (string-match "\r?\n\r?\n" content)
+ (length (match-string 0 content)))
+ (point-max)))
)))
@@ -623,47 +634,47 @@
(let ((id (cdr (assq 'id status-datum))))
(if (or (null (symbol-value data-var))
- (not (find-if
- (lambda (item)
- (eql id (cdr (assq 'id item))))
- (symbol-value data-var))))
- (progn
- (if twittering-jojo-mode
- (twittering-update-jojo (cdr (assq 'user-screen-name status-datum))
- (cdr (assq 'text status-datum))))
- (set data-var (cons status-datum (symbol-value data-var)))
- t)
+ (not (find-if
+ (lambda (item)
+ (eql id (cdr (assq 'id item))))
+ (symbol-value data-var))))
+ (progn
+ (if twittering-jojo-mode
+ (twittering-update-jojo (cdr (assq 'user-screen-name status-datum))
+ (cdr (assq 'text status-datum))))
+ (set data-var (cons status-datum (symbol-value data-var)))
+ t)
nil)))
(defun twittering-status-to-status-datum (status)
(flet ((assq-get (item seq)
- (car (cddr (assq item seq)))))
+ (car (cddr (assq item seq)))))
(let* ((status-data (cddr status))
- id text source created-at truncated
- (user-data (cddr (assq 'user status-data)))
- user-id user-name
- user-screen-name
- user-location
- user-description
- user-profile-image-url
- user-url
- user-protected
- regex-index)
+ id text source created-at truncated
+ (user-data (cddr (assq 'user status-data)))
+ user-id user-name
+ user-screen-name
+ user-location
+ user-description
+ user-profile-image-url
+ user-url
+ user-protected
+ regex-index)
(setq id (string-to-number (assq-get 'id status-data)))
(setq text (twittering-decode-html-entities
- (assq-get 'text status-data)))
+ (assq-get 'text status-data)))
(setq source (twittering-decode-html-entities
- (assq-get 'source status-data)))
+ (assq-get 'source status-data)))
(setq created-at (assq-get 'created_at status-data))
(setq truncated (assq-get 'truncated status-data))
(setq user-id (string-to-number (assq-get 'id user-data)))
(setq user-name (twittering-decode-html-entities
- (assq-get 'name user-data)))
+ (assq-get 'name user-data)))
(setq user-screen-name (twittering-decode-html-entities
- (assq-get 'screen_name user-data)))
+ (assq-get 'screen_name user-data)))
(setq user-location (twittering-decode-html-entities
- (assq-get 'location user-data)))
+ (assq-get 'location user-data)))
(setq user-description (twittering-decode-html-entities
- (assq-get 'description user-data)))
+ (assq-get 'description user-data)))
(setq user-profile-image-url (assq-get 'profile_image_url user-data))
(setq user-url (assq-get 'url user-data))
@@ -672,37 +683,37 @@
;; make username clickable
(add-text-properties 0 (length user-screen-name)
- `(mouse-face highlight
- uri ,(concat "http://twitter.com/" user-screen-name)
- username ,user-screen-name
- face twittering-username-face)
- user-screen-name)
+ `(mouse-face highlight
+ uri ,(concat "http://twitter.com/" user-screen-name)
+ username ,user-screen-name
+ face twittering-username-face)
+ user-screen-name)
;; make URI clickable
(setq regex-index 0)
(while regex-index
- (setq regex-index
- (string-match "@\\([_a-zA-Z0-9]+\\)\\|\\(https?://[-_.!~*'()a-zA-Z0-9;/?:@&=+$,%#]+\\)"
- text
- regex-index))
- (when regex-index
- (let* ((matched-string (match-string-no-properties 0 text))
- (screen-name (match-string-no-properties 1 text))
- (uri (match-string-no-properties 2 text)))
- (add-text-properties
- (if screen-name
- (+ 1 (match-beginning 0))
- (match-beginning 0))
- (match-end 0)
- (if screen-name
- `(mouse-face
- highlight
- face twittering-uri-face
- username ,screen-name
- uri ,(concat "http://twitter.com/" screen-name))
- `(mouse-face highlight
- face twittering-uri-face
- uri ,uri))
- text))
- (setq regex-index (match-end 0)) ))
+ (setq regex-index
+ (string-match "@\\([_a-zA-Z0-9]+\\)\\|\\(https?://[-_.!~*'()a-zA-Z0-9;/?:@&=+$,%#]+\\)"
+ text
+ regex-index))
+ (when regex-index
+ (let* ((matched-string (match-string-no-properties 0 text))
+ (screen-name (match-string-no-properties 1 text))
+ (uri (match-string-no-properties 2 text)))
+ (add-text-properties
+ (if screen-name
+ (+ 1 (match-beginning 0))
+ (match-beginning 0))
+ (match-end 0)
+ (if screen-name
+ `(mouse-face
+ highlight
+ face twittering-uri-face
+ username ,screen-name
+ uri ,(concat "http://twitter.com/" screen-name))
+ `(mouse-face highlight
+ face twittering-uri-face
+ uri ,uri))
+ text))
+ (setq regex-index (match-end 0)) ))
;; make screen-name clickable
@@ -710,47 +721,47 @@
0 (length user-screen-name)
`(mouse-face highlight
- face twittering-username-face
- uri ,(concat "http://twitter.com/" user-screen-name)
- username ,user-screen-name)
+ face twittering-username-face
+ uri ,(concat "http://twitter.com/" user-screen-name)
+ username ,user-screen-name)
user-screen-name)
;; make source pretty and clickable
(if (string-match "\\(.*\\)" source)
- (let ((uri (match-string-no-properties 1 source))
- (caption (match-string-no-properties 2 source)))
- (setq source caption)
- (add-text-properties
- 0 (length source)
- `(mouse-face highlight
- uri ,uri
- face twittering-uri-face
- source ,source)
- source)
- ))
+ (let ((uri (match-string-no-properties 1 source))
+ (caption (match-string-no-properties 2 source)))
+ (setq source caption)
+ (add-text-properties
+ 0 (length source)
+ `(mouse-face highlight
+ uri ,uri
+ face twittering-uri-face
+ source ,source)
+ source)
+ ))
(mapcar
(lambda (sym)
- `(,sym . ,(symbol-value sym)))
+ `(,sym . ,(symbol-value sym)))
'(id text source created-at truncated
- user-id user-name user-screen-name user-location
- user-description
- user-profile-image-url
- user-url
- user-protected)))))
+ user-id user-name user-screen-name user-location
+ user-description
+ user-profile-image-url
+ user-url
+ user-protected)))))
(defun twittering-xmltree-to-status (xmltree)
(mapcar #'twittering-status-to-status-datum
- ;; quirk to treat difference between xml.el in Emacs21 and Emacs22
- ;; On Emacs22, there may be blank strings
- (let ((ret nil) (statuses (reverse (cddr (car xmltree)))))
- (while statuses
- (if (consp (car statuses))
- (setq ret (cons (car statuses) ret)))
- (setq statuses (cdr statuses)))
- ret)))
+ ;; quirk to treat difference between xml.el in Emacs21 and Emacs22
+ ;; On Emacs22, there may be blank strings
+ (let ((ret nil) (statuses (reverse (cddr (car xmltree)))))
+ (while statuses
+ (if (consp (car statuses))
+ (setq ret (cons (car statuses) ret)))
+ (setq statuses (cdr statuses)))
+ ret)))
(defun twittering-percent-encode (str &optional coding-system)
(if (or (null coding-system)
- (not (coding-system-p coding-system)))
+ (not (coding-system-p coding-system)))
(setq coding-system 'utf-8))
(mapconcat
@@ -775,26 +786,26 @@
(if encoded-str
(let ((cursor 0)
- (found-at nil)
- (result '()))
- (while (setq found-at
- (string-match "&\\(#\\([0-9]+\\)\\|\\([A-Za-z]+\\)\\);"
- encoded-str cursor))
- (when (> found-at cursor)
- (list-push (substring encoded-str cursor found-at) result))
- (let ((number-entity (match-string-no-properties 2 encoded-str))
- (letter-entity (match-string-no-properties 3 encoded-str)))
- (cond (number-entity
- (list-push
- (char-to-string
- (twittering-ucs-to-char
- (string-to-number number-entity))) result))
- (letter-entity
- (cond ((string= "gt" letter-entity) (list-push ">" result))
- ((string= "lt" letter-entity) (list-push "<" result))
- (t (list-push "?" result))))
- (t (list-push "?" result)))
- (setq cursor (match-end 0))))
- (list-push (substring encoded-str cursor) result)
- (apply 'concat (nreverse result)))
+ (found-at nil)
+ (result '()))
+ (while (setq found-at
+ (string-match "&\\(#\\([0-9]+\\)\\|\\([A-Za-z]+\\)\\);"
+ encoded-str cursor))
+ (when (> found-at cursor)
+ (list-push (substring encoded-str cursor found-at) result))
+ (let ((number-entity (match-string-no-properties 2 encoded-str))
+ (letter-entity (match-string-no-properties 3 encoded-str)))
+ (cond (number-entity
+ (list-push
+ (char-to-string
+ (twittering-ucs-to-char
+ (string-to-number number-entity))) result))
+ (letter-entity
+ (cond ((string= "gt" letter-entity) (list-push ">" result))
+ ((string= "lt" letter-entity) (list-push "<" result))
+ (t (list-push "?" result))))
+ (t (list-push "?" result)))
+ (setq cursor (match-end 0))))
+ (list-push (substring encoded-str cursor) result)
+ (apply 'concat (nreverse result)))
""))
@@ -802,5 +813,5 @@
(let ((buf (get-buffer twittering-buffer)))
(if (null buf)
- (twittering-stop)
+ (twittering-stop)
(funcall func)
)))
@@ -810,6 +821,6 @@
nil
(twittering-http-post "statuses" "update"
- `(("status" . ,status)
- ("source" . "twmode")))
+ `(("status" . ,status)
+ ("source" . "twmode")))
t))
@@ -820,5 +831,5 @@
(setq status (read-from-minibuffer "status: " status nil nil nil nil t))
(setq not-posted-p
- (not (twittering-update-status-if-not-blank status))))))
+ (not (twittering-update-status-if-not-blank status))))))
(defun twittering-update-lambda ()
@@ -831,12 +842,12 @@
(defun twittering-update-jojo (usr msg)
(if (string-match "\xde21\xd24b\\(\xd22a\xe0b0\\|\xdaae\xe6cd\\)\xd24f\xd0d6\\([^\xd0d7]+\\)\xd0d7\xd248\xdc40\xd226"
- msg)
+ msg)
(twittering-http-post
"statuses" "update"
`(("status" . ,(concat
- "@" usr " "
- (match-string-no-properties 2 msg)
- "\xd0a1\xd24f\xd243!?"))
- ("source" . "twmode")))))
+ "@" usr " "
+ (match-string-no-properties 2 msg)
+ "\xd0a1\xd24f\xd243!?"))
+ ("source" . "twmode")))))
;;;
@@ -851,7 +862,7 @@
nil
(setq twittering-timer
- (run-at-time "0 sec"
- twittering-timer-interval
- #'twittering-timer-action action))))
+ (run-at-time "0 sec"
+ twittering-timer-interval
+ #'twittering-timer-action action))))
(defun twittering-stop ()
@@ -864,5 +875,5 @@
(let ((buf (get-buffer twittering-buffer)))
(if (not buf)
- (twittering-stop)
+ (twittering-stop)
(twittering-http-get "statuses" "friends_timeline")
))
@@ -870,21 +881,21 @@
(if twittering-icon-mode
(if twittering-image-stack
- (let ((proc
- (apply
- #'start-process
- "wget-images"
- (twittering-wget-buffer)
- "wget"
- (format "--directory-prefix=%s" twittering-tmp-dir)
- "--no-clobber"
- "--quiet"
- twittering-image-stack)))
- (set-process-sentinel
- proc
- (lambda (proc stat)
- (clear-image-cache)
- (save-excursion
- (set-buffer (twittering-wget-buffer))
- )))))))
+ (let ((proc
+ (apply
+ #'start-process
+ "wget-images"
+ (twittering-wget-buffer)
+ "wget"
+ (format "--directory-prefix=%s" twittering-tmp-dir)
+ "--no-clobber"
+ "--quiet"
+ twittering-image-stack)))
+ (set-process-sentinel
+ proc
+ (lambda (proc stat)
+ (clear-image-cache)
+ (save-excursion
+ (set-buffer (twittering-wget-buffer))
+ )))))))
(defun twittering-update-status-interactive ()
@@ -901,14 +912,14 @@
(let ((uri (get-text-property (point) 'uri)))
(if uri
- (browse-url uri))))
+ (browse-url uri))))
(defun twittering-enter ()
(interactive)
(let ((username (get-text-property (point) 'username))
- (uri (get-text-property (point) 'uri)))
+ (uri (get-text-property (point) 'uri)))
(if username
- (twittering-update-status-from-minibuffer (concat "@" username " "))
+ (twittering-update-status-from-minibuffer (concat "@" username " "))
(if uri
- (browse-url uri)))))
+ (browse-url uri)))))
(defun twittering-view-user-page ()
@@ -916,5 +927,5 @@
(let ((uri (get-text-property (point) 'uri)))
(if uri
- (browse-url uri))))
+ (browse-url uri))))
(defun twittering-reply-to-user ()
@@ -922,5 +933,5 @@
(let ((username (get-text-property (point) 'username)))
(if username
- (twittering-update-status-from-minibuffer (concat "@" username " ")))))
+ (twittering-update-status-from-minibuffer (concat "@" username " ")))))
(defun twittering-get-password ()
@@ -928,4 +939,36 @@
(setq twittering-password (read-passwd "twittering-mode: "))))
+(defun twittering-next-message ()
+ "Go to next message."
+ (interactive)
+ (let ((pos))
+ (setq pos (twittering-next-username-face-pos (point)))
+ (when pos
+ (goto-char pos))))
+
+(defun twittering-next-username-face-pos (pos)
+ (interactive)
+ (let ((prop))
+ (while (not (eq prop twittering-username-face))
+ (setq pos (next-single-property-change pos 'face))
+ (setq prop (get-text-property pos 'face)))
+ pos))
+
+(defun twittering-previous-message ()
+ "Go to previous message."
+ (interactive)
+ (let ((pos))
+ (setq pos (twittering-previous-username-face-pos (point)))
+ (when pos
+ (goto-char pos))))
+
+(defun twittering-previous-username-face-pos (pos)
+ (interactive)
+ (let ((prop))
+ (while (not (eq prop twittering-username-face))
+ (setq pos (previous-single-property-change pos 'face))
+ (setq prop (get-text-property pos 'face)))
+ pos))
+
(provide 'twittering-mode)
;;; twittering.el ends here
Index: lang/elisp/twittering-mode/branches/gan2/ChangeLog
===================================================================
--- lang/elisp/twittering-mode/branches/RB-0.3/ChangeLog (revision 25)
+++ lang/elisp/twittering-mode/branches/gan2/ChangeLog (revision 28)
@@ -1,2 +1,16 @@
+2008-04-25 gan2
+
+ * twittering-mode.el: next-line や previous-line は C-n や C-p でできるので j, k を隣接したメッセージの移動に変更
+ (twittering-next-message): 次のメッセージにジャンプする関数を定義
+ (twittering-next-username-face-pos): twittering-next-message が呼び出す関数を定義
+ (twittering-previous-message): 前のメッセージにジャンプする関数を定義
+ (twittering-previous-username-face-pos): twittering-previous-message が呼び出す関数を定義
+ (twittering-mode-map): j, k で次のメッセージと前のメッセージに移動するように変更
+
+2008-04-23 gan2
+
+ * twittering-mode.el : RB-0.3 を gan2 にコピー. ソフトタブに統一
+ (twittering-mode-version): バージョンを表示する関数を定義
+
2008-03-15 Y. Hayamizu
Index: lang/elisp/twittering-mode/branches/gan2/TAGS
===================================================================
--- lang/elisp/twittering-mode/branches/gan2/TAGS (revision 28)
+++ lang/elisp/twittering-mode/branches/gan2/TAGS (revision 28)
@@ -0,0 +1,82 @@
+
+C:\home\mshoji\site-lisp\twittering-mode\branches\gan2\twittering-mode.el,6271
+(defconst twittering-mode-version "0.3")twittering-mode-version48,1587
+(defun twittering-mode-version ()twittering-mode-version50,1629
+(defvar twittering-mode-map (make-sparse-keymap))twittering-mode-map59,1907
+(defvar twittering-timer nil "Timer object for timeline refreshing will be stored here. DO NOT SET VALUE MANUALLY.")twittering-timer61,1958
+(defvar twittering-idle-time 20)twittering-idle-time63,2076
+(defvar twittering-timer-interval 90)twittering-timer-interval65,2110
+(defvar twittering-username nil)twittering-username67,2149
+(defvar twittering-password nil)twittering-password69,2183
+(defvar twittering-scroll-mode nil)twittering-scroll-mode71,2217
+(defvar twittering-jojo-mode nil)twittering-jojo-mode73,2254
+(defvar twittering-status-format nil)twittering-status-format75,2289
+(defvar twittering-buffer "*twittering*")twittering-buffer94,2722
+(defun twittering-buffer ()twittering-buffer95,2764
+(defvar twittering-http-buffer "*twittering-http-buffer*")twittering-http-buffer98,2850
+(defun twittering-http-buffer ()twittering-http-buffer99,2909
+(defvar twittering-friends-timeline-data nil)twittering-friends-timeline-data102,3005
+(defvar twittering-username-face 'twittering-username-face)twittering-username-face104,3052
+(defvar twittering-uri-face 'twittering-uri-face)twittering-uri-face105,3112
+(defun twittering-get-or-generate-buffer (buffer)twittering-get-or-generate-buffer107,3163
+(defun assocref (item alist)assocref116,3413
+(defmacro list-push (value listvar)list-push118,3470
+(defvar twittering-proxy-use nil)twittering-proxy-use122,3560
+(defvar twittering-proxy-server nil)twittering-proxy-server123,3594
+(defvar twittering-proxy-port 8080)twittering-proxy-port124,3631
+(defvar twittering-proxy-user nil)twittering-proxy-user125,3667
+(defvar twittering-proxy-password nil)twittering-proxy-password126,3702
+(defun twittering-toggle-proxy () ""twittering-toggle-proxy128,3742
+(defun twittering-user-agent-default-function ()twittering-user-agent-default-function137,3941
+(defvar twittering-user-agent-function 'twittering-user-agent-default-function)twittering-user-agent-function146,4205
+(defun twittering-user-agent ()twittering-user-agent148,4286
+(defvar twittering-wget-buffer "*twittering-wget-buffer*")twittering-wget-buffer154,4425
+(defun twittering-wget-buffer ()twittering-wget-buffer155,4484
+(defvar twittering-tmp-dirtwittering-tmp-dir158,4580
+(defvar twittering-icon-mode nil "You MUST NOT CHANGE this variable directory. You should change through function'twittering-icon-mode'")twittering-icon-mode162,4705
+(defun twittering-icon-mode (&optional arg)twittering-icon-mode163,4843
+(defun twittering-scroll-mode (&optional arg)twittering-scroll-mode179,5304
+(defun twittering-jojo-mode (&optional arg)twittering-jojo-mode186,5487
+(defvar twittering-image-stack nil)twittering-image-stack193,5664
+(defun twittering-image-type (file-name)twittering-image-type195,5701
+(defun twittering-local-strftime (fmt string)twittering-local-strftime202,5899
+(defvar twittering-debug-mode nil)twittering-debug-mode206,6077
+(defvar twittering-debug-buffer "*debug*")twittering-debug-buffer207,6112
+(defun twittering-debug-buffer ()twittering-debug-buffer208,6155
+(defmacro debug-print (obj)debug-print210,6252
+(defun twittering-debug-mode ()twittering-debug-mode220,6500
+(defvar twittering-mode-syntax-table nil "")twittering-mode-syntax-table248,7656
+(defun twittering-mode-init-variables ()twittering-mode-init-variables257,7929
+(defmacro case-string (str &rest clauses)case-string273,8596
+(defmacro twittering-ucs-to-char (num)twittering-ucs-to-char287,9018
+(defvar twittering-mode-string "Twittering mode")twittering-mode-string292,9146
+(defun twittering-mode ()twittering-mode294,9197
+(defun twittering-http-get (method-class method &optional sentinel)twittering-http-get313,9656
+(defun twittering-http-get-default-sentinel (proc stat &optional suc-msg)twittering-http-get-default-sentinel372,11498
+(defun twittering-render-friends-timeline ()twittering-render-friends-timeline393,12139
+(defun twittering-format-status (status format-str)twittering-format-status411,12706
+(defun twittering-http-posttwittering-http-post519,16417
+(defun twittering-http-post-default-sentinel (proc stat &optional suc-msg)twittering-http-post-default-sentinel585,18605
+(defun twittering-get-response-header (&optional buffer)twittering-get-response-header601,19137
+(defun twittering-get-response-body (&optional buffer)twittering-get-response-body612,19655
+(defun twittering-cache-status-datum (status-datum &optional data-var)twittering-cache-status-datum627,20319
+(defun twittering-status-to-status-datum (status)twittering-status-to-status-datum646,21049
+(defun twittering-xmltree-to-status (xmltree)twittering-xmltree-to-status750,24508
+(defun twittering-percent-encode (str &optional coding-system)twittering-percent-encode761,24926
+(defun twittering-url-reserved-p (ch)twittering-url-reserved-p775,25305
+(defun twittering-decode-html-entities (encoded-str)twittering-decode-html-entities783,25482
+(defun twittering-timer-action (func)twittering-timer-action810,26439
+(defun twittering-update-status-if-not-blank (status)twittering-update-status-if-not-blank817,26593
+(defun twittering-update-status-from-minibuffer (&optional init-str)twittering-update-status-from-minibuffer825,26835
+(defun twittering-update-lambda ()twittering-update-lambda833,27181
+(defun twittering-update-jojo (usr msg)twittering-update-jojo840,27373
+(defun twittering-start (&optional action)twittering-start855,27779
+(defun twittering-stop ()twittering-stop866,28075
+(defun twittering-friends-timeline ()twittering-friends-timeline871,28183
+(defun twittering-update-status-interactive ()twittering-update-status-interactive899,28839
+(defun twittering-erase-old-statuses ()twittering-erase-old-statuses903,28949
+(defun twittering-click ()twittering-click908,29107
+(defun twittering-enter ()twittering-enter914,29232
+(defun twittering-view-user-page ()twittering-view-user-page923,29499
+(defun twittering-reply-to-user ()twittering-reply-to-user929,29633
+(defun twittering-get-password ()twittering-get-password935,29833