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

Add more keys, change macro for keymap management

Browse source 
Instead of having to keep track of the keys in the keymap, let the macro
handle it. Add `beginning-of-line' and `end-of-line' key bindings.
This commit is contained in:
Tom Willemse 2013-12-31 14:17:33 +01:00
parent 5624c6fa9b
commit 515f65df7d
1 changed files with 22 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
transient-navigation.el
View file

@ -25,27 +25,25 @@
;;; Code: ;;; Code:
(defvar transient-navigation-map (defvar transient-navigation-map (make-sparse-keymap))
(let ((map (make-sparse-keymap)))
(define-key map (kbd "f") #'transient-forward-char)
(define-key map (kbd "b") #'transient-backward-char)
(define-key map (kbd "n") #'transient-next-line)
(define-key map (kbd "p") #'transient-previous-line)
map))
(defmacro transnav-make-transient (func) (defmacro transnav-make-transient (key map func)
"Wrap FUNC with a transient map." "Bind KEY in MAP to FUNC with a transient map."
(let ((funcname (intern (concat "transient-" (symbol-name func))))) (let ((funcname (intern (concat "transient-" (symbol-name func)))))
`(defun ,funcname (&optional n) `(progn
(defun ,funcname (&optional n)
(interactive) (interactive)
(ignore n) (ignore n)
(call-interactively #',func) (call-interactively #',func)
(set-transient-map transient-navigation-map t)))) (set-transient-map transient-navigation-map t))
(define-key ,map (kbd ,key) #',funcname))))
(transnav-make-transient forward-char) (transnav-make-transient "f" transient-navigation-map forward-char)
(transnav-make-transient backward-char) (transnav-make-transient "b" transient-navigation-map backward-char)
(transnav-make-transient next-line) (transnav-make-transient "n" transient-navigation-map next-line)
(transnav-make-transient previous-line) (transnav-make-transient "p" transient-navigation-map previous-line)
(transnav-make-transient "e" transient-navigation-map end-of-line)
(transnav-make-transient "a" transient-navigation-map beginning-of-line)
;;;###autoload ;;;###autoload
(define-minor-mode transient-navigation-mode (define-minor-mode transient-navigation-mode
@ -56,11 +54,15 @@
(define-key global-map [remap forward-char] #'transient-forward-char) (define-key global-map [remap forward-char] #'transient-forward-char)
(define-key global-map [remap backward-char] #'transient-backward-char) (define-key global-map [remap backward-char] #'transient-backward-char)
(define-key global-map [remap next-line] #'transient-next-line) (define-key global-map [remap next-line] #'transient-next-line)
(define-key global-map [remap previous-line] #'transient-previous-line)) (define-key global-map [remap previous-line] #'transient-previous-line)
(define-key global-map [remap end-of-line] #'transient-end-of-line)
(define-key global-map [remap beginning-of-line] #'transient-beginning-of-line))
(define-key global-map [remap transient-forward-char] #'forward-char) (define-key global-map [remap transient-forward-char] #'forward-char)
(define-key global-map [remap transient-backward-char] #'backward-char) (define-key global-map [remap transient-backward-char] #'backward-char)
(define-key global-map [remap transient-next-line] #'next-line) (define-key global-map [remap transient-next-line] #'next-line)
(define-key global-map [remap transient-previous-line] #'previous-line))) (define-key global-map [remap transient-previous-line] #'previous-line)
(define-key global-map [remap transient-end-of-line] #'end-of-line)
(define-key global-map [remap transient-beginning-of-line] #'beginning-of-line)))
(provide 'transient-navigation) (provide 'transient-navigation)
;;; transient-navigation.el ends here ;;; transient-navigation.el ends here