emacs
/
evil-collection
mirror of https://github.com/jojojames/evil-collection.git
1
0
Fork 0
Code Issues Releases Wiki Activity

Helm: Use evil-define-key now that upstream has fixed the inheritance issue 

https://github.com/emacs-evil/evil/pull/982
This commit is contained in:
Pierre Neidhardt 2017-12-03 15:06:13 +01:00
parent 1acc818215
commit b129403dfa
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
evil-helm.el
View File

@ -44,15 +44,15 @@
(defun evil-helm-setup ()
"Set up `evil' bindings for `helm'."
;; TODO: We should not modify helm-map in Emacs state but somehow it does not
;; work otherwise.
(define-key helm-map (kbd "M-[") 'helm-previous-source)
(define-key helm-map (kbd "M-]") 'helm-next-source)
(define-key helm-map (kbd "M-l") 'helm-execute-persistent-action)
(evil-define-key 'insert helm-map
(kbd "M-[") 'helm-previous-source
(kbd "M-]") 'helm-next-source
(kbd "M-l") 'helm-execute-persistent-action)
(dolist (map (list helm-find-files-map helm-read-file-map))
(define-key map (kbd "M-h") 'helm-find-files-up-one-level)
(define-key map (kbd "M-l") 'helm-execute-persistent-action) ; TODO: Inheritance does not seem to work for that binding.
(define-key map (kbd "C-l") nil)) ; So the header displays the above binding.
(evil-define-key 'insert map
(kbd "M-h") 'helm-find-files-up-one-level
(kbd "M-l") 'helm-execute-persistent-action)
(define-key map (kbd "C-l") nil)) ; So the Helm header displays the "M-l" binding.
(evil-define-key 'normal helm-map
(kbd "[") 'helm-previous-source