Merge pull request #96 from angerborn/optional-evil
Option for not setting up evil keys
This commit is contained in:
11
eyebrowse.el
11
eyebrowse.el
@ -559,14 +559,15 @@ Currently only gt, gT, gc and zx are supported."
|
|||||||
(define-key evil-motion-state-map (kbd "zx") 'eyebrowse-last-window-config))
|
(define-key evil-motion-state-map (kbd "zx") 'eyebrowse-last-window-config))
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun eyebrowse-setup-opinionated-keys ()
|
(defun eyebrowse-setup-opinionated-keys (&optional ignore-evil)
|
||||||
"Set up more opinionated key bindings for using eyebrowse.
|
"Set up more opinionated key bindings for using eyebrowse.
|
||||||
|
|
||||||
M-0..M-9, C-< / C->, C-'and C-\" are used for switching. If Evil
|
M-0..M-9, C-< / C->, C-'and C-\" are used for switching. If
|
||||||
is detected, extra key bindings will be set up with
|
IGNORE-EVIL isn't set and Evil is detected, extra key bindings
|
||||||
`eyebrowse-setup-evil-keys' as well."
|
will be set up with `eyebrowse-setup-evil-keys' as well."
|
||||||
(let ((map eyebrowse-mode-map))
|
(let ((map eyebrowse-mode-map))
|
||||||
(when (bound-and-true-p evil-mode)
|
(when (and (not ignore-evil)
|
||||||
|
(bound-and-true-p evil-mode))
|
||||||
(eyebrowse-setup-evil-keys))
|
(eyebrowse-setup-evil-keys))
|
||||||
(define-key map (kbd "C-<") 'eyebrowse-prev-window-config)
|
(define-key map (kbd "C-<") 'eyebrowse-prev-window-config)
|
||||||
(define-key map (kbd "C->") 'eyebrowse-next-window-config)
|
(define-key map (kbd "C->") 'eyebrowse-next-window-config)
|
||||||
|
|||||||
Reference in New Issue
Block a user