emacs.d/config/init-evil.el

   1
   2 ;;---------------------------------------------------------------------------------------
   3 ;; evil
   4 ;;
   5
   6 (require 'evil)
   7 (defalias 'evil-insert-state 'evil-emacs-state)
   8 ;; C-o C-o switch to normal mode, defined in config/init-key-binding.el
   9 ;;;(global-set-key (kbd "C-o C-o") 'evil-normal-state)
  10
  11 ;;https://github.com/toumorokoshi/yt.rc/blob/master/emacs/my-evil.el
  12 ;; let's disable keymaps we don't want.
  13 ;; basically, anything that uses C or M
  14 (define-key evil-visual-state-map "\C-w" nil)
  15 ;(define-key evil-normal-state-map (kbd "M-.") nil)
  16 (define-key evil-normal-state-map "\C-t" nil)
  17 (define-key evil-normal-state-map "\C-p" nil)
  18 (define-key evil-normal-state-map "\C-n" nil)
  19 (define-key evil-normal-state-map "\C-k" nil)
  20 (define-key evil-normal-state-map "\C-l" nil)
  21 (define-key evil-normal-state-map "\C-k" nil)
  22 (define-key evil-normal-state-map "\C-j" nil)
  23 (define-key evil-normal-state-map "\C-o" nil)
  24
  25
  26 (global-evil-leader-mode)
  27 (evil-leader/set-leader ";")
  28 (evil-leader/set-key "e" 'find-file)
  29 (evil-leader/set-key "f" 'recentf-ido-find-file)
  30 (evil-leader/set-key "b" 'switch-to-buffer)
  31 (evil-leader/set-key "w" 'evil-write)
  32
  33 (evil-leader/set-key "s" 'split-window-below)
  34 (evil-leader/set-key "v" 'split-window-right)
  35 (evil-leader/set-key "q" 'delete-window)
  36
  37 (setq key-chord-two-keys-delay 0.5)
  38 (key-chord-define evil-insert-state-map "jj" 'evil-normal-state)
  39 (key-chord-define evil-emacs-state-map "jj" 'evil-normal-state)
  40
  41 (key-chord-mode 1)
  42
  43 (define-key evil-normal-state-map [escape] 'keyboard-quit)
  44 (define-key evil-visual-state-map [escape] 'keyboard-quit)
  45
  46 ;(define-key minibuffer-local-map [jscape] 'minibuffer-keyboard-quit)
  47 ;(define-key minibuffer-local-ns-map [escape] 'minibuffer-keyboard-quit)
  48 ;(define-key minibuffer-local-completion-map [escape] 'minibuffer-keyboard-quit)
  49 ;(define-key minibuffer-local-must-match-map [escape] 'minibuffer-keyboard-quit)
  50 ;(define-key minibuffer-local-isearch-map [escape] 'minibuffer-keyboard-quit)
  51
  52
  53 ;; cursor shape
  54 ;(setq evil-emacs-state-cursor '("red" box))
  55 (setq evil-emacs-state-cursor '("red" bar))
  56 (setq evil-normal-state-cursor '("green" box))
  57 (setq evil-visual-state-cursor '("orange" box))
  58 (setq evil-insert-state-cursor '("red" bar))
  59 (setq evil-replace-state-cursor '("red" bar))
  60 (setq evil-operator-state-cursor '("red" hollow))
  61 ;;Enter an emacs mode in a given state http://wikemacs.org/wiki/Evil
  62 (loop for (mode . state) in '(
  63                   (nrepl-mode . insert)
  64                   (pylookup-mode . emacs)
  65                   (comint-mode . normal)
  66                   (shell-mode . emacs)
  67                   (git-commit-mode . emacs)
  68                   (git-rebase-mode . emacs)
  69                   (term-mode . emacs)
  70                   (help-mode . emacs)
  71                   (helm-grep-mode . emacs)
  72                   (grep-mode . emacs)
  73                   (bc-menu-mode . emacs)
  74                   (magit-branch-manager-mode . emacs)
  75                   (rdictcc-buffer-mode . emacs)
  76                   (dired-mode . emacs)
  77                   (wdired-mode . normal)
  78 ;                           (inferior-emacs-lisp-mode . emacs)
  79 ;                           (wdired-mode . normal)
  80                             (eshell-mode . emacs))
  81     do (evil-set-initial-state mode state))
  82
  83
  84 ;(global-evil-tabs-mode t)
  85 (evil-mode 1)
  86
  87 (provide 'init-evil)