Browse files

Make TAB jump between keys in `magit-key-mode'.

The code should really use something like widgets (from "widget.el")
instead of reinventing this wheel.
  • Loading branch information...
1 parent 01eb83a commit 62518e399f88d371a53aa1b7911a553358f84271 @elibarzilay elibarzilay committed with sigma Oct 29, 2011
Showing with 13 additions and 0 deletions.
  1. +13 −0 magit-key-mode.el
13 magit-key-mode.el
@@ -244,6 +244,17 @@ FOR-GROUP."
(error "Nothing at point to do.")))
(def (lookup-key (current-local-map) key)))
(call-interactively def)))
+(defun magit-key-mode-jump-to-next-exec ()
+ "Jump to the next action/args/option point."
+ (interactive)
+ (let* ((oldp (point))
+ (old (get-text-property oldp 'key-group-executor))
+ (p (if (= oldp (point-max)) (point-min) (1+ oldp))))
+ (while (let ((new (get-text-property p 'key-group-executor)))
+ (and (not (= p oldp)) (or (not new) (eq new old))))
+ (setq p (if (= p (point-max)) (point-min) (1+ p))))
+ (goto-char p)
+ (skip-chars-forward " ")))
(defun magit-key-mode-build-keymap (for-group)
"Construct a normal looking keymap for the key mode to use and
@@ -256,6 +267,8 @@ put it in magit-key-mode-key-maps for fast lookup."
(suppress-keymap map 'nodigits)
;; ret dwim
(define-key map (kbd "RET") 'magit-key-mode-exec-at-point)
+ ;; tab jumps to the next "button"
+ (define-key map (kbd "TAB") 'magit-key-mode-jump-to-next-exec)
;; all maps should `quit' with `C-g' or `q'
(define-key map (kbd "C-g") `(lambda ()

0 comments on commit 62518e3

Please sign in to comment.