alx/eyebrowse
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge pull request #96 from angerborn/optional-evil

Browse Source 
Option for not setting up evil keys
This commit is contained in:
Vasilij Schneidermann
2019-01-04 19:57:41 +01:00
committed by GitHub
parent 421727327e cb0724b085
commit a11c904486
1 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
eyebrowse.el
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))
;;;###autoload
(defun eyebrowse-setup-opinionated-keys ()
(defun eyebrowse-setup-opinionated-keys (&optional ignore-evil)
"Set up more opinionated key bindings for using eyebrowse.
M-0..M-9, C-< / C->, C-'and C-\" are used for switching. If Evil
is detected, extra key bindings will be set up with
`eyebrowse-setup-evil-keys' as well."
M-0..M-9, C-< / C->, C-'and C-\" are used for switching. If
IGNORE-EVIL isn't set and Evil is detected, extra key bindings
will be set up with `eyebrowse-setup-evil-keys' as well."
(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))
(define-key map (kbd "C-<") 'eyebrowse-prev-window-config)
(define-key map (kbd "C->") 'eyebrowse-next-window-config)