branch: elpa/evil-lisp-state
commit f387d1037537265bd8965a2ae842db2238b6e843
Author: syl20bnr <[email protected]>
Commit: syl20bnr <[email protected]>
`L` bindings no go to the beginning of the next sexp at the same level
Version 1.6
---
evil-lisp-state.el | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/evil-lisp-state.el b/evil-lisp-state.el
index d040d1622a..0f56da96e1 100644
--- a/evil-lisp-state.el
+++ b/evil-lisp-state.el
@@ -5,7 +5,7 @@
;; Author: Sylvain Benner <[email protected]>
;; Keywords: convenience editing evil smartparens lisp mnemonic
;; Created: 9 Oct 2014
-;; Version: 1.5.4
+;; Version: 1.6
;; Package-Requires: ((evil "1.0.9") (smartparens "1.6.1") (expand-region
"0.10.0"))
;; URL: https://github.com/syl20bnr/evil-lisp-state
@@ -116,7 +116,7 @@ of COMMAND.
(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-symbol)
-(define-key evil-lisp-state-map "L" 'sp-forward-sexp)
+(define-key evil-lisp-state-map "L" 'evil-lisp-state-next-sexp)
(define-key evil-lisp-state-map "m" 'sp-join-sexp)
(define-key evil-lisp-state-map "o" 'evil-lisp-state-insert-below)
(define-key evil-lisp-state-map "O" 'evil-open-above)
@@ -147,6 +147,12 @@ of COMMAND.
(evil-end-of-line)
(eval-last-sexp nil)))
+(defun evil-lisp-state-next-sexp ()
+ "Go to the beginning of the next sexp of the same level."
+ (interactive)
+ (sp-forward-sexp) (sp-forward-sexp)
+ (sp-backward-sexp))
+
(defun evil-lisp-state-insert-left-paren ()
"Switch to insert state and insert `('"
(interactive)
