emacs.d/config/init-evil.el

   1
   2 ;;---------------------------------------------------------------------------------------
   3 ;; evil
   4 ;;
   5 (global-evil-leader-mode)
   6 (evil-leader/set-leader ";")
   7 (evil-leader/set-key "e" 'find-file)
   8 (evil-leader/set-key "b" 'switch-to-buffer)
   9 (evil-leader/set-key "w" 'evil-write)
  10
  11 ;; TODO: change cursor to next windows
  12 (evil-leader/set-key "s" 'split-window-below)
  13 (evil-leader/set-key "v" 'split-window-right)
  14 (evil-leader/set-key "q" 'delete-window)
  15
  16 (require 'evil)
  17 ;(setq key-chord-two-keys-delay 0.5)
  18 (key-chord-define evil-insert-state-map "jj" 'evil-normal-state)
  19 (key-chord-mode 1)
  20 (define-key evil-normal-state-map [escape] 'keyboard-quit)
  21 (define-key evil-visual-state-map [escape] 'keyboard-quit)
  22 ;(define-key minibuffer-local-map [escape] 'minibuffer-keyboard-quit)
  23 ;(define-key minibuffer-local-ns-map [escape] 'minibuffer-keyboard-quit)
  24 ;(define-key minibuffer-local-completion-map [escape] 'minibuffer-keyboard-quit)
  25 ;(define-key minibuffer-local-must-match-map [escape] 'minibuffer-keyboard-quit)
  26 ;(define-key minibuffer-local-isearch-map [escape] 'minibuffer-keyboard-quit)
  27
  28
  29 ;; cursor shape
  30 (setq evil-emacs-state-cursor '("red" box))
  31 (setq evil-normal-state-cursor '("green" box))
  32 (setq evil-visual-state-cursor '("orange" box))
  33 (setq evil-insert-state-cursor '("red" bar))
  34 (setq evil-replace-state-cursor '("red" bar))
  35 (setq evil-operator-state-cursor '("red" hollow))
  36 ;;Enter an emacs mode in a given state http://wikemacs.org/wiki/Evil
  37 (loop for (mode . state) in '(
  38                   (nrepl-mode . insert)
  39                   (pylookup-mode . emacs)
  40                   (comint-mode . normal)
  41                   (shell-mode . insert)
  42                   (git-commit-mode . insert)
  43                   (git-rebase-mode . emacs)
  44                   (term-mode . emacs)
  45                   (help-mode . emacs)
  46                   (helm-grep-mode . emacs)
  47                   (grep-mode . emacs)
  48                   (bc-menu-mode . emacs)
  49                   (magit-branch-manager-mode . emacs)
  50                   (rdictcc-buffer-mode . emacs)
  51                   (dired-mode . emacs)
  52                   (wdired-mode . normal)
  53 ;                           (inferior-emacs-lisp-mode . emacs)
  54 ;                           (wdired-mode . normal)
  55                             (eshell-mode . emacs))
  56     do (evil-set-initial-state mode state))
  57
  58
  59 ;(global-evil-tabs-mode t)
  60 (evil-mode 1)
  61
  62 (provide 'init-evil)