Changeset 31 for lang/elisp

Timestamp:

04/26/08 12:04:46 (17 years ago)

Author:

gan2

Message:

n, p でポイント上のユーザの次(前)の発言に移動する設定を追加
そのための関数をいくつか定義
前回定義した j, k 用の関数名を変更

Location:

lang/elisp/twittering-mode/branches/gan2

Files:

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

lang/elisp/twittering-mode/branches/gan2/ChangeLog

@@ +1 @@
+2008-04-26  gan2  <gan2.ruby@gmail.com>
+
+        * twittering-mode.el: n, p でポイント上のユーザの次(前)の発言に移動する設定を追加
+        (twittering-goto-next-status): twittering-next-message の名前を変更
+        (twittering-get-next-username-face-pos): twittering-next-username-face-pos の名前を変更
+        (twittering-goto-previous-status): twittering-previous-message の名前を変更
+        (twittering-get-previous-username-face-pos): twittering-previous-username-face-pos の名前を変更
+        (twittering-goto-next-status-of-user): ポイント上のユーザの次の発言へ移動する関数を定義
+        (twittering-goto-previous-status-of-user): ポイント上のユーザの前の発言へ移動する関数を定義
+        (twittering-get-username-at-pos): ポイント上のユーザ名を返す関数を定義
+        (twittering-mode-map): n, p でポイント上のユーザの次(前)の発言に移動する設定を追加
+
 2008-04-25  gan2  <gan2.ruby@gmail.com>
 

lang/elisp/twittering-mode/branches/gan2/twittering-mode.el

@@ -235 +235 @@
       ;; (define-key km "j" 'next-line)
       ;; (define-key km "k" 'previous-line)
-      (define-key km "j" 'twittering-next-status)
-      (define-key km "k" 'twittering-previous-status)
+      (define-key km "j" 'twittering-goto-next-status)
+      (define-key km "k" 'twittering-goto-previous-status)
       (define-key km "l" 'forward-char)
       (define-key km "h" 'backward-char)
@@ -242 +242 @@
       (define-key km "^" 'beginning-of-line-text)
       (define-key km "$" 'end-of-line)
+      (define-key km "n" 'twittering-goto-next-status-of-user)
+      (define-key km "p" 'twittering-goto-previous-status-of-user)
       (define-key km [backspace] 'backward-char)
       (define-key km "G" 'end-of-buffer)
@@ -939 +941 @@
       (setq twittering-password (read-passwd "twittering-mode: "))))
 
-(defun twittering-next-status ()
+(defun twittering-goto-next-status ()
   "Go to next status."
   (interactive)
   (let ((pos))
-    (setq pos (twittering-next-username-face-pos (point)))
+    (setq pos (twittering-get-next-username-face-pos (point)))
     (when pos
       (goto-char pos))))
 
-(defun twittering-next-username-face-pos (pos)
+(defun twittering-get-next-username-face-pos (pos)
   (interactive)
   (let ((prop))
@@ -955 +957 @@
     pos))
 
-(defun twittering-previous-status ()
+(defun twittering-goto-previous-status ()
   "Go to previous status."
   (interactive)
   (let ((pos))
-    (setq pos (twittering-previous-username-face-pos (point)))
+    (setq pos (twittering-get-previous-username-face-pos (point)))
     (when pos
       (goto-char pos))))
 
-(defun twittering-previous-username-face-pos (pos)
+(defun twittering-get-previous-username-face-pos (pos)
   (interactive)
   (let ((prop))
@@ -971 +973 @@
     pos))
 
+(defun twittering-goto-next-status-of-user ()
+  "Go to next status of user."
+  (interactive)
+  (let ((user-name (twittering-get-username-at-pos (point)))
+        (pos (twittering-get-next-username-face-pos (point))))
+    (while (not (equal (twittering-get-username-at-pos pos) user-name))
+      (setq pos (twittering-get-next-username-face-pos pos)))
+    (goto-char pos)))
+
+(defun twittering-goto-previous-status-of-user ()
+  "Go to previous status of user."
+  (interactive)
+  (let ((user-name (twittering-get-username-at-pos (point)))
+        (pos (twittering-get-previous-username-face-pos (point))))
+    (while (not (equal (twittering-get-username-at-pos pos) user-name))
+      (setq pos (twittering-get-previous-username-face-pos pos)))
+    (goto-char pos)))
+
+(defun twittering-get-username-at-pos (pos)
+  (let ((start-pos pos)
+        (end-pos))
+    (while (eq (get-text-property start-pos 'face) twittering-username-face)
+      (setq start-pos (1- start-pos)))
+    (setq start-pos (1+ start-pos))
+    (setq end-pos (next-single-property-change pos 'face))
+    (buffer-substring start-pos end-pos)))
+
 (provide 'twittering-mode)
 ;;; twittering.el ends here