ryuslash/transient-navigation
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Rename key maps

Browse source 
`transient-C-navigation-map' and `transient-M-navigation-map' are closer
to their functions as they hope to replace the `C-*' navigation
key bindings and the `M-*' key bindings respectively.
This commit is contained in:
Tom Willemse 2014-01-01 20:29:08 +01:00
parent 0bf56c53ef
commit 0854e0dc26
1 changed files with 12 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
transient-navigation.el
View file

@ -26,8 +26,8 @@
;;; Code: ;;; Code:
(defvar transient-navigation-mode-map (make-sparse-keymap)) (defvar transient-navigation-mode-map (make-sparse-keymap))
(defvar transient-navigation-map (make-sparse-keymap)) (defvar transient-C-navigation-map (make-sparse-keymap))
(defvar transient-word-navigation-map (make-sparse-keymap)) (defvar transient-M-navigation-map (make-sparse-keymap))
(defmacro transnav-make-transient (key map func) (defmacro transnav-make-transient (key map func)
"Bind KEY in MAP to FUNC with a transient map." "Bind KEY in MAP to FUNC with a transient map."
@ -43,17 +43,17 @@
(define-key transient-navigation-mode-map (define-key transient-navigation-mode-map
[remap ,func] #',funcname)))) [remap ,func] #',funcname))))
(transnav-make-transient "f" transient-navigation-map forward-char) (transnav-make-transient "f" transient-C-navigation-map forward-char)
(transnav-make-transient "b" transient-navigation-map backward-char) (transnav-make-transient "b" transient-C-navigation-map backward-char)
(transnav-make-transient "n" transient-navigation-map next-line) (transnav-make-transient "n" transient-C-navigation-map next-line)
(transnav-make-transient "p" transient-navigation-map previous-line) (transnav-make-transient "p" transient-C-navigation-map previous-line)
(transnav-make-transient "e" transient-navigation-map end-of-line) (transnav-make-transient "e" transient-C-navigation-map end-of-line)
(transnav-make-transient "a" transient-navigation-map beginning-of-line) (transnav-make-transient "a" transient-C-navigation-map beginning-of-line)
(transnav-make-transient "f" transient-word-navigation-map forward-word) (transnav-make-transient "f" transient-M-navigation-map forward-word)
(transnav-make-transient "b" transient-word-navigation-map backward-word) (transnav-make-transient "b" transient-M-navigation-map backward-word)
(transnav-make-transient "e" transient-word-navigation-map forward-sentence) (transnav-make-transient "e" transient-M-navigation-map forward-sentence)
(transnav-make-transient "a" transient-word-navigation-map backward-sentence) (transnav-make-transient "a" transient-M-navigation-map backward-sentence)
;;;###autoload ;;;###autoload
(define-minor-mode transient-navigation-mode (define-minor-mode transient-navigation-mode