emacs.d/config/init-evil.el

   1
   2 ;;---------------------------------------------------------------------------------------
   3 ;; evil
   4 ;;
   5
   6 (require 'evil)
   7 (defalias 'evil-insert-state 'evil-emacs-state)
   8
   9 ;;https://github.com/toumorokoshi/yt.rc/blob/master/emacs/my-evil.el
  10 (define-key evil-visual-state-map "\C-w" nil)
  11 ;(define-key evil-normal-state-map (kbd "M-.") nil)
  12 (define-key evil-normal-state-map "\C-t" nil)
  13 (define-key evil-normal-state-map "\C-p" nil)
  14 (define-key evil-normal-state-map "\C-n" nil)
  15 (define-key evil-normal-state-map "\C-k" nil)
  16 (define-key evil-normal-state-map "\C-l" nil)
  17 (define-key evil-normal-state-map "\C-k" nil)
  18 (define-key evil-normal-state-map "\C-j" nil)
  19 (define-key evil-normal-state-map "\C-o" nil)
  20
  21
  22 ;; M-e not works correctly in evil-normal mode, this fix it
  23 (define-key evil-normal-state-map "\M-e" (lambda() (interactive)
  24                                            (forward-sentence 2)))
  25 (define-key evil-motion-state-map "\C-e" (move-end-of-line 1))
  26
  27
  28 ;; most common keys in normal-mode to swith buffer, project, windows,
  29 ;; in emacs mode, Esc + s + x, the same
  30 (global-evil-leader-mode)
  31 (evil-leader/set-leader "s")
  32 ;(evil-leader/set-key "j" 'helm-mini)
  33 (evil-leader/set-key "j" 'helm-projectile-switch-to-buffer)
  34 (evil-leader/set-key "h" 'persp-switch)
  35 (evil-leader/set-key "k" 'helm-find-files)
  36 (evil-leader/set-key "ff" 'helm-ls-git-ls)
  37 (evil-leader/set-key "fb" 'helm-mini)
  38 ;(evil-leader/set-key "p" 'helm-projectile-switch-project)
  39
  40 ;(define-key evil-normal-state-map "\M-n" 'persp-next)
  41 ;(define-key evil-normal-state-map "\M-p" 'persp-prev)
  42
  43
  44 ;(evil-leader/set-key "l" 'persp-switch)
  45 ;(evil-leader/set-key "g" 'persp-switch)
  46
  47 (setq key-chord-two-keys-delay 0.5)
  48 (key-chord-define evil-insert-state-map "jj" 'evil-normal-state)
  49 (key-chord-define evil-emacs-state-map "jj" 'evil-normal-state)
  50
  51
  52 ;(key-chord-define evil-normal-state-map ";w" 'save-buffer)
  53 (key-chord-define evil-normal-state-map ";s" 'split-window-below)
  54 (key-chord-define evil-normal-state-map ";v" 'split-window-right)
  55 ;(key-chord-define evil-normal-state-map ";;" 'helm-find-files)
  56
  57 (key-chord-mode 1)
  58
  59 (define-key evil-normal-state-map [escape] 'keyboard-quit)
  60 (define-key evil-visual-state-map [escape] 'keyboard-quit)
  61
  62 ;(define-key minibuffer-local-map [jscape] 'minibuffer-keyboard-quit)
  63 ;(define-key minibuffer-local-ns-map [escape] 'minibuffer-keyboard-quit)
  64 ;(define-key minibuffer-local-completion-map [escape] 'minibuffer-keyboard-quit)
  65 ;(define-key minibuffer-local-must-match-map [escape] 'minibuffer-keyboard-quit)
  66 ;(define-key minibuffer-local-isearch-map [escape] 'minibuffer-keyboard-quit)
  67
  68
  69
  70 ;; implement some missing vim normal command
  71 ;; g-; - goto last change
  72 ;; g
  73
  74
  75 ;; cursor shape
  76 (setq evil-emacs-state-cursor '("red" box))
  77 (setq evil-normal-state-cursor '("green" box))
  78 (setq evil-visual-state-cursor '("orange" box))
  79 (setq evil-insert-state-cursor '("red" bar))
  80 (setq evil-replace-state-cursor '("red" bar))
  81 (setq evil-operator-state-cursor '("red" hollow))
  82 ;;Enter an emacs mode in a given state http://wikemacs.org/wiki/Evil
  83 (loop for (mode . state) in '(
  84                   (nrepl-mode . insert)
  85                   (pylookup-mode . emacs)
  86                   (comint-mode . normal)
  87                   (shell-mode . emacs)
  88                   (git-commit-mode . emacs)
  89                   (git-rebase-mode . emacs)
  90                   (term-mode . emacs)
  91                   (help-mode . emacs)
  92                   (helm-grep-mode . emacs)
  93                   (grep-mode . emacs)
  94                   (bc-menu-mode . emacs)
  95                   (magit-branch-manager-mode . emacs)
  96                   (magit-popup-mode . emacs)
  97                   (rdictcc-buffer-mode . emacs)
  98                   (dired-mode . emacs)
  99                   (text-mode . emacs)
 100                   (wdired-mode . normal)
 101 ;                           (inferior-emacs-lisp-mode . emacs)
 102 ;                           (wdired-mode . normal)
 103                             (eshell-mode . emacs))
 104     do (evil-set-initial-state mode state))
 105
 106
 107 ;(global-evil-tabs-mode t)
 108 (evil-mode 1)
 109
 110 (provide 'init-evil)