From 27a400783a99d1fbaf067c172e39044efde09f5d Mon Sep 17 00:00:00 2001 From: Peng Li Date: Sun, 24 Sep 2017 02:27:52 +0800 Subject: [PATCH 1/1] Emacs - evil eshell mode --- emacs.d/emacs-evil.org | 25 +++++++++++++++++-------- 1 file changed, 17 insertions(+), 8 deletions(-) diff --git a/emacs.d/emacs-evil.org b/emacs.d/emacs-evil.org index ec2681e..294ce4d 100644 --- a/emacs.d/emacs-evil.org +++ b/emacs.d/emacs-evil.org @@ -195,14 +195,23 @@ Let the search highlight persistent, https://stackoverflow.com/questions/2576803 ** Eshell #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (with-eval-after-load "evil" - (with-eval-after-load "evil-leader" - (with-eval-after-load "eshell" - (evil-define-key 'emacs eshell-mode-map (kbd (concat evil-leader/leader "e")) #'sd/toggle-project-eshell) - (evil-define-key 'emacs eshell-mode-map (kbd (concat evil-leader/leader "d")) #'dired) - (evil-define-key 'emacs eshell-mode-map (kbd (concat evil-leader/leader "f")) #'ido-switch-buffer) - (evil-define-key 'emacs eshell-mode-map (kbd (concat evil-leader/leader "q")) #'evil-quit) - (evil-define-key 'emacs eshell-mode-map (kbd "C-;") 'mode-line-other-buffer)))) + (add-hook 'eshell-mode-hook (lambda () + (dolist (key-fun '(("e" . sd/toggle-project-eshell) + ("d" . dired) + ("f" . ido-switch-buffer) + ("q" . evil-quit))) + (evil-define-key 'emacs eshell-mode-map (kbd (concat evil-leader/leader (car key-fun))) (cdr key-fun))))) + + ;; (add-hook 'eshell-mode-map + ;; (lambda () + ;; (mapc (lambda (key-fun) + ;; (evil-define-key 'emacs eshell-mode-map (kbd (concat evil-leader/leader (car key-fun))) (cdr key-fun))) + ;; '(("e" . dired))))) + + ;; (add-hook 'eshell-mode-hook (lambda () + ;; (loop for (key . fun) in '( + ;; ("e" . sd/toggle-project-eshell)) + ;; do (evil-define-key 'emacs eshell-mode-map (kbd (concat evil-leader/leader key)) fun)))) #+END_SRC ** Dired mode #+BEGIN_SRC emacs-lisp :tangle yes :results silent -- 2.11.0