emacs - add a function conbining helm-mini and helm-projectile-switch-buffers

[dotfiles.git] / emacs.d / config / init-evil.el

diff --git a/emacs.d/config/init-evil.el b/emacs.d/config/init-evil.el
index cce5e4f..96aac9d 100644 (file)
--- a/emacs.d/config/init-evil.el
+++ b/emacs.d/config/init-evil.el
@@ -2,30 +2,77 @@
 ;;---------------------------------------------------------------------------------------
 ;; evil
 ;;
+
+(require 'evil)
+
+(defalias 'evil-insert-state 'evil-emacs-state)
+
+;;https://github.com/toumorokoshi/yt.rc/blob/master/emacs/my-evil.el
+(define-key evil-visual-state-map "\C-w" nil)
+;(define-key evil-normal-state-map (kbd "M-.") nil)
+(define-key evil-normal-state-map "\C-t" nil)
+(define-key evil-normal-state-map "\C-p" nil)
+(define-key evil-normal-state-map "\C-n" nil)
+(define-key evil-normal-state-map "\C-k" nil)
+(define-key evil-normal-state-map "\C-l" nil)
+(define-key evil-normal-state-map "\C-k" nil)
+(define-key evil-normal-state-map "\C-j" nil)
+(define-key evil-normal-state-map "\C-o" nil)
+
+
+;; M-e not works correctly in evil-normal mode, this fix it
+(define-key evil-normal-state-map "\M-e" (lambda() (interactive)
+                                          (forward-sentence 2)))
+(define-key evil-motion-state-map "\C-e" (move-end-of-line 1))
+
+
+;; most common keys in normal-mode to swith buffer, project, windows,
+;; in emacs mode, Esc + s + x, the same
 (global-evil-leader-mode)
-(evil-leader/set-leader ";")
-(evil-leader/set-key "e" 'find-file)
-(evil-leader/set-key "b" 'switch-to-buffer)
-(evil-leader/set-key "w" 'evil-write)
+(evil-leader/set-leader "s")
+(evil-leader/set-key "j" 'pl-switch-buffers)
+(evil-leader/set-key "h" 'persp-switch)
+(evil-leader/set-key "k" 'helm-cmd-t)
+;(evil-leader/set-key "f" 'helm-ls-git-ls)
+(evil-leader/set-key "b" 'helm-mini)
+(evil-leader/set-key "m" 'helm-mini)
+;(evil-leader/set-key "p" 'helm-projectile-switch-project)
 
-;; TODO: change cursor to next windows
-(evil-leader/set-key "s" 'split-window-below)
-(evil-leader/set-key "v" 'split-window-right)
-(evil-leader/set-key "q" 'delete-window)
+;(define-key evil-normal-state-map "M-n" 'persp-next)
+;(define-key evil-normal-state-map "\M-p" 'persp-prev)
 
-(require 'evil)
-;(setq key-chord-two-keys-delay 0.5)
+
+;(evil-leader/set-key "l" 'persp-switch)
+;(evil-leader/set-key "g" 'persp-switch)
+
+(setq key-chord-two-keys-delay 0.5)
 (key-chord-define evil-insert-state-map "jj" 'evil-normal-state)
+(key-chord-define evil-emacs-state-map "jj" 'evil-normal-state)
+
+
+;(key-chord-define evil-normal-state-map ";w" 'save-buffer)
+(key-chord-define evil-normal-state-map ";s" 'split-window-below)
+(key-chord-define evil-normal-state-map ";v" 'split-window-right)
+;(key-chord-define evil-normal-state-map ";;" 'helm-find-files)
+
 (key-chord-mode 1)
+
 (define-key evil-normal-state-map [escape] 'keyboard-quit)
 (define-key evil-visual-state-map [escape] 'keyboard-quit)
-;(define-key minibuffer-local-map [escape] 'minibuffer-keyboard-quit)
+
+;(define-key minibuffer-local-map [jscape] 'minibuffer-keyboard-quit)
 ;(define-key minibuffer-local-ns-map [escape] 'minibuffer-keyboard-quit)
 ;(define-key minibuffer-local-completion-map [escape] 'minibuffer-keyboard-quit)
 ;(define-key minibuffer-local-must-match-map [escape] 'minibuffer-keyboard-quit)
 ;(define-key minibuffer-local-isearch-map [escape] 'minibuffer-keyboard-quit)
 
 
+
+;; implement some missing vim normal command
+;; g-; - goto last change
+;; g
+
+
 ;; cursor shape
 (setq evil-emacs-state-cursor '("red" box))
 (setq evil-normal-state-cursor '("green" box))
@@ -35,6 +82,23 @@
 (setq evil-operator-state-cursor '("red" hollow))
 ;;Enter an emacs mode in a given state http://wikemacs.org/wiki/Evil
 (loop for (mode . state) in '(
+                  (nrepl-mode . insert)
+                  (pylookup-mode . emacs)
+                  (comint-mode . normal)
+                  (shell-mode . emacs)
+                  (git-commit-mode . emacs)
+                  (git-rebase-mode . emacs)
+                  (term-mode . emacs)
+                  (help-mode . emacs)
+                  (helm-grep-mode . emacs)
+                  (grep-mode . emacs)
+                  (bc-menu-mode . emacs)
+                  (magit-branch-manager-mode . emacs)
+                  (magit-popup-mode . emacs)
+                  (rdictcc-buffer-mode . emacs)
+                  (dired-mode . emacs)
+                  (text-mode . emacs)
+                  (wdired-mode . normal)
 ;                          (inferior-emacs-lisp-mode . emacs)
 ;                          (wdired-mode . normal)
                            (eshell-mode . emacs))