Merge help bindings from evil-special-modes

This commit is contained in:
Pierre Neidhardt 2017-11-06 12:28:51 +01:00
parent b7e5f77d6d
commit 62c48917b2
1 changed files with 25 additions and 15 deletions

View File

@ -27,24 +27,34 @@
;; Evil integration for `help-mode'. ;; Evil integration for `help-mode'.
;;; Code: ;;; Code:
(require 'evil-collection-util)
(require 'help-mode) (require 'help-mode)
(require 'evil)
(defun evil-help-set-keys () (defun evil-help-set-keys ()
(+evilify-map (evil-define-key 'motion help-mode-map
help-mode-map ;; motion
:mode help-mode (kbd "SPC") 'scroll-up-command
:bindings (kbd "S-SPC") 'scroll-down-command
"Y" 'evil-yank-line (kbd "C-f") 'scroll-up-command
"y" 'evil-yank (kbd "C-b") 'scroll-down-command
"e" 'evil-forward-word-end (kbd "<tab>") 'forward-button
"E" 'evil-forward-WORD-end (kbd "<backtab>") 'backward-button
">" 'help-go-forward
"<" 'help-go-back (kbd "C-o") 'help-go-back
"gj" 'help-go-forward (kbd "C-i") 'help-go-forward
"gk" 'help-go-back ;; TODO: Enable more help-go-* bindings?
"\C-j" 'help-go-forward ;; ">" 'help-go-forward
"\C-k" 'help-go-back)) ;; "<" 'help-go-back
;; "gj" 'help-go-forward
;; "gk" 'help-go-back
;; "\C-j" 'help-go-forward
;; "\C-k" 'help-go-back
;; quit
"q" 'quit-window
"ZQ" 'evil-quit
"ZZ" 'quit-window))
(provide 'evil-help) (provide 'evil-help)
;;; evil-help.el ends here ;;; evil-help.el ends here