Emacs: Evil: Bind M-l to helm-execute-persistent-action
parent
9aa7965f0e
commit
bf2851ded0
|
@ -85,11 +85,11 @@ See `eshell' for the numeric prefix arg."
|
||||||
"M-\\" 'helm-toggle-resplit-and-swap-windows ; Or use M-t (helm standard binding is C-t).
|
"M-\\" 'helm-toggle-resplit-and-swap-windows ; Or use M-t (helm standard binding is C-t).
|
||||||
"C-f" 'helm-next-page
|
"C-f" 'helm-next-page
|
||||||
"C-b" 'helm-previous-page
|
"C-b" 'helm-previous-page
|
||||||
|
"M-h" 'helm-next-source
|
||||||
"M-j" 'helm-next-line
|
"M-j" 'helm-next-line
|
||||||
"M-k" 'helm-previous-line
|
"M-k" 'helm-previous-line
|
||||||
"M-h" 'helm-next-source
|
"M-l" 'helm-execute-persistent-action ;(kbd "RET")
|
||||||
"M-H" 'describe-key
|
"M-H" 'describe-key
|
||||||
"M-l" (kbd "RET")
|
|
||||||
"<escape>" 'helm-keyboard-quit)
|
"<escape>" 'helm-keyboard-quit)
|
||||||
(dolist (keymap (list helm-buffer-map))
|
(dolist (keymap (list helm-buffer-map))
|
||||||
(define-key keymap (kbd "M-o") 'helm-buffer-switch-other-window))
|
(define-key keymap (kbd "M-o") 'helm-buffer-switch-other-window))
|
||||||
|
@ -97,8 +97,8 @@ See `eshell' for the numeric prefix arg."
|
||||||
(define-keys keymap
|
(define-keys keymap
|
||||||
"M-o" 'helm-ff-run-switch-other-window
|
"M-o" 'helm-ff-run-switch-other-window
|
||||||
"M-." 'helm-ff-run-find-sh-command
|
"M-." 'helm-ff-run-find-sh-command
|
||||||
"M-l" 'helm-execute-persistent-action
|
|
||||||
"M-h" 'helm-find-files-up-one-level
|
"M-h" 'helm-find-files-up-one-level
|
||||||
|
"M-l" 'helm-execute-persistent-action
|
||||||
"M-H" 'describe-key)))
|
"M-H" 'describe-key)))
|
||||||
|
|
||||||
;; Add support for magit.
|
;; Add support for magit.
|
||||||
|
@ -131,15 +131,14 @@ See `eshell' for the numeric prefix arg."
|
||||||
(evil-define-key 'normal (eval keymap) [escape] 'abort-recursive-edit)
|
(evil-define-key 'normal (eval keymap) [escape] 'abort-recursive-edit)
|
||||||
(evil-define-key 'normal (eval keymap) [return] 'exit-minibuffer))
|
(evil-define-key 'normal (eval keymap) [return] 'exit-minibuffer))
|
||||||
|
|
||||||
(add-hook
|
(defun evil-minibuffer-setup ()
|
||||||
'minibuffer-setup-hook
|
(set (make-local-variable 'evil-echo-state) nil)
|
||||||
'(lambda ()
|
;; (evil-set-initial-state 'mode 'insert) is the evil-proper
|
||||||
(set (make-local-variable 'evil-echo-state) nil)
|
;; way to do this, but the minibuffer doesn't have a mode.
|
||||||
;; (evil-set-initial-state 'mode 'insert) is the evil-proper
|
;; The alternative is to create a minibuffer mode (here), but
|
||||||
;; way to do this, but the minibuffer doesn't have a mode.
|
;; then it may conflict with other packages' if they do the same.
|
||||||
;; The alternative is to create a minibuffer mode (here), but
|
(evil-insert 1))
|
||||||
;; then it may conflict with other packages' if they do the same.
|
(add-hook 'minibuffer-setup-hook 'evil-minibuffer-setup)
|
||||||
(evil-insert 1)))
|
|
||||||
;; Because of the above minibuffer-setup-hook, some bindings need be reset.
|
;; Because of the above minibuffer-setup-hook, some bindings need be reset.
|
||||||
(evil-define-key 'normal evil-ex-completion-map [escape] 'abort-recursive-edit)
|
(evil-define-key 'normal evil-ex-completion-map [escape] 'abort-recursive-edit)
|
||||||
(evil-define-key 'insert evil-ex-completion-map "\M-p" 'previous-complete-history-element)
|
(evil-define-key 'insert evil-ex-completion-map "\M-p" 'previous-complete-history-element)
|
||||||
|
|
Loading…
Reference in New Issue