Option for not setting up evil keys

This commit is contained in:
Felix Angerborn
2018-11-23 08:51:54 +01:00
parent dfeea9e9cd
commit cb0724b085

View File

@ -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)