From 91d6442af37c49a429d2da637b06a44f522cbcae Mon Sep 17 00:00:00 2001
From: Peng Li <seudut@gmail.com>
Date: Wed, 27 Sep 2017 01:56:02 +0800
Subject: [PATCH] Emacs - evil & avy

---
 emacs.d/config.org     |  4 ++--
 emacs.d/emacs-evil.org | 30 +++++++++++++++++++++++++++---
 2 files changed, 29 insertions(+), 5 deletions(-)

diff --git a/emacs.d/config.org b/emacs.d/config.org
index 0c1fd5a..7ebbe01 100644
--- a/emacs.d/config.org
+++ b/emacs.d/config.org
@@ -1784,8 +1784,8 @@ Wiki [[http://stackoverflow.com/questions/3480173/show-keys-in-emacs-keymap-valu
 
 ** goto-last-change
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
-  (use-package goto-last-change
-    :ensure t)
+  ;; (use-package goto-last-change
+  ;;   :ensure t)
 #+END_SRC
 
 ** Ag
diff --git a/emacs.d/emacs-evil.org b/emacs.d/emacs-evil.org
index 1d93c6e..6adc4d9 100644
--- a/emacs.d/emacs-evil.org
+++ b/emacs.d/emacs-evil.org
@@ -164,8 +164,14 @@ There are three kinds key bindings
             (define-key map (kbd "C-<") (lambda () (interactive) (evil-window-decrease-width 3)))
             (define-key map (kbd "C-+") (lambda () (interactive) (evil-window-increase-height 3)))
             (define-key map (kbd "C--") (lambda () (interactive) (evil-window-decrease-height 3)))
-            (define-key map (kbd "C-=") (lambda () (interactive) (balance-windows))))
+            (define-key map (kbd "C-=") (lambda () (interactive) (balance-windows)))
+            ;; As ; has been defined as leader, so remap , to ; repeaat t/f
+            (define-key map (kbd ",") 'evil-repeat-find-char))
           (list evil-normal-state-map evil-motion-state-map))
+
+    
+    ;; (define-key evil-normal-state-map  "s" nil)
+    ;; (define-key evil-normal-state-map  "sj" 'ivy-switch-buffer)
     ;; normal state
     (define-key evil-normal-state-map (kbd "C-SPC") 'mode-line-other-buffer)
     (define-key evil-normal-state-map (kbd "C-;") 'previous-multiframe-window)
@@ -188,7 +194,9 @@ Let the search highlight persistent, https://stackoverflow.com/questions/2576803
 
   (with-eval-after-load "evil"
     (define-key evil-normal-state-map "\\" nil)
-    (define-key evil-normal-state-map "\\\\" #'evil-ex-nohighlight))
+    (define-key evil-normal-state-map "\\\\" #'evil-ex-nohighlight)
+    (define-key evil-normal-state-map "\\f" #'describe-function)
+    (define-key evil-normal-state-map "\\v" #'describe-variable))
 #+END_SRC
 
 ** Eshell
@@ -291,9 +299,25 @@ Let the search highlight persistent, https://stackoverflow.com/questions/2576803
       (evil-define-key 'normal worf-mode-map (kbd "]") (lambda ()
                                                          (interactive)
                                                          (call-interactively #'worf-forward)
-                                                         (evil-emacs-state)))))
+                                                         (evil-emacs-state)))
+      ;; (evil-define-key 'normal worf-mode-map (kbd "g") (lambda ()
+      ;;                                                    (interactive)
+      ;;                                                    (wspecial-worf-goto)
+      ;;                                                    (evil-emacs-state)))
+      ))
 #+END_SRC
 
+** Avy & Evil
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+  (with-eval-after-load "evil"
+    (dolist (map (list evil-normal-state-map
+                       evil-visual-state-map
+                       evil-motion-state-map))
+      (define-key map (kbd "J") 'avy-goto-line-below)
+      (define-key map (kbd "K") 'avy-goto-line-above)
+      (define-key map (kbd "F") 'avy-goto-char)
+      (define-key map (kbd "W") 'avy-goto-char-timer)))
+#+END_SRC
 * Others
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
   (dolist (mode '(c-mode-hook lua-mode-hook))
-- 
2.11.0