branch: elpa/evil-lisp-state
commit 95d764e6a50eb1df563fef08e613fcb7bcf5b5fd
Author: syl20bnr <[email protected]>
Commit: syl20bnr <[email protected]>
Swap `k` and `K` for a more natural feeling
Now `j` and `k` cancel each other which is much more natural
---
README.md | 6 ++----
evil-lisp-state.el | 8 +++-----
2 files changed, 5 insertions(+), 9 deletions(-)
diff --git a/README.md b/README.md
index d42147ff95..f3e1659047 100644
--- a/README.md
+++ b/README.md
@@ -77,14 +77,12 @@ Key Binding | Function
`el` | eval-last-sexp
`es` | eval-sexp
`h` | sp-backward-sexp
-`H` | evil-backward-char
`i` | evil-insert-state
`j` | sp-down-sexp
`J` | sp-backward-down-sexp
-`k` | sp-up-sexp
-`K` | sp-backward-up-sexp
+`k` | sp-backward-up-sexp
+`K` | sp-up-sexp
`l` | sp-forward-sexp
-`L` | evil-forward-char
`m` | sp-join-sexp (think about `merge-sexp`)
`p` | evil-past-after
`P` | evil-past-before
diff --git a/evil-lisp-state.el b/evil-lisp-state.el
index dbe0cd0df8..377cb4f47e 100644
--- a/evil-lisp-state.el
+++ b/evil-lisp-state.el
@@ -104,14 +104,11 @@ of COMMAND.
(define-key evil-lisp-state-map "el" 'eval-last-sexp)
(define-key evil-lisp-state-map "es" 'eval-sexp)
(define-key evil-lisp-state-map "h" 'sp-backward-sexp)
-(define-key evil-lisp-state-map "H" 'evil-backward-char)
-(define-key evil-lisp-state-map "i" 'evil-insert-state)
(define-key evil-lisp-state-map "j" 'sp-down-sexp)
(define-key evil-lisp-state-map "J" 'sp-backward-down-sexp)
-(define-key evil-lisp-state-map "k" 'sp-up-sexp)
-(define-key evil-lisp-state-map "K" 'sp-backward-up-sexp)
+(define-key evil-lisp-state-map "K" 'sp-up-sexp)
+(define-key evil-lisp-state-map "k" 'sp-backward-up-sexp)
(define-key evil-lisp-state-map "l" 'sp-forward-sexp)
-(define-key evil-lisp-state-map "L" 'evil-forward-char)
(define-key evil-lisp-state-map "m" 'sp-join-sexp)
(define-key evil-lisp-state-map "p" 'evil-paste-after)
(define-key evil-lisp-state-map "P" 'evil-paste-before)
@@ -127,6 +124,7 @@ of COMMAND.
(evil-lisp-state-define-key "y" copy-sexp t)
(define-key evil-lisp-state-map (kbd "DEL") 'evil-backward-char)
(define-key evil-lisp-state-map (kbd "RET") 'sp-newline)
+(define-key evil-lisp-state-map "i" 'evil-insert-state)
(define-key evil-lisp-state-map [escape] 'evil-normal-state)
(defun evil-lisp-state-eval-sexp-end-of-line ()
