[elpa] 220/255: list buffer navigation

[Eric Schulte]

eschulte pushed a commit to branch go
in repository elpa.

commit dad4afef29698e7f6f1372552229fa881d8fdd90
Author: Eric Schulte <address@hidden>
Date:   Thu Aug 8 09:20:21 2013 -0600

    list buffer navigation
---
 list-buffer.el |   32 +++++++++++++++++++++++++++-----
 1 files changed, 27 insertions(+), 5 deletions(-)

diff --git a/list-buffer.el b/list-buffer.el
index 7af6a0b..2657107 100644
--- a/list-buffer.el
+++ b/list-buffer.el
@@ -141,13 +141,35 @@ through the `*buffer-list*' variable.")
   (interactive)
   (error "not implemented."))
 
+(defun list-move-col (direction)
+  (cl-flet ((col () (or (get-text-property (point) :col) start-col)))
+    (let ((start-col (col)))
+      (while (= start-col (col))
+        (case direction
+          (:forward (forward-char))
+          (:backward (backward-char))))
+      (when (eql direction :backward)
+        (let ((end-col (col)))
+          (while (= end-col (col)) (backward-char))
+          (forward-char))))))
+
+(defun list-next-col () (interactive) (list-move-col :forward))
+(defun list-prev-col () (interactive) (list-move-col :backward))
+
 (defvar list-mode-map
   (let ((map (make-sparse-keymap)))
-    (define-key map (kbd "<up>")    'list-up)
-    (define-key map (kbd "<down>")  'list-down)
-    (define-key map (kbd "f")       'list-filter)
-    (define-key map (kbd "RET")     'list-enter)
-    (define-key map (kbd "q")       'bury-buffer)
+    ;; navigation
+    (define-key map (kbd "j")               'next-line)
+    (define-key map (kbd "k")               'previous-line)
+    (define-key map (kbd "u")               'scroll-down-command)
+    (define-key map (kbd "<tab>")           'list-next-col)
+    (define-key map (kbd "<S-iso-lefttab>") 'list-prev-col)
+    ;; list functions
+    (define-key map (kbd "<up>")            'list-up)
+    (define-key map (kbd "<down>")          'list-down)
+    (define-key map (kbd "f")               'list-filter)
+    (define-key map (kbd "RET")             'list-enter)
+    (define-key map (kbd "q")               'bury-buffer)
     map)
   "Keymap for `list-mode'.")