branch: elpa/evil-lisp-state
commit df979a68a5e1373c74d69b424048a65c20db2df3
Author: syl20bnr <[email protected]>
Commit: syl20bnr <[email protected]>
Wrap and unwrap are now on `w` and `W` respectively
Version 3.2
---
README.md | 4 ++--
evil-lisp-state.el | 7 ++++---
2 files changed, 6 insertions(+), 5 deletions(-)
diff --git a/README.md b/README.md
index e1c59ef569..eebc032e01 100644
--- a/README.md
+++ b/README.md
@@ -135,7 +135,6 @@ Key Binding | Function
`p` | evil-past-after
`P` | evil-past-before
`r` | sp-raise-sexp
-`R` | sp-rewrap-sexp
`C-r` | undo-tree-redo
`s` | sp-forward-slurp-sexp
`<tab>s` | sp-backward-slurp-sexp
@@ -144,10 +143,11 @@ Key Binding | Function
`t` | sp-transpose-sexp
`T` | sp-transpose-hybrid-sexp
`u` | undo-tree-undo
-`U` | sp-unwrap-sexp
`<tab>U` | sp-backward-unwrap-sexp
`v` | er/expand-region
`V` | select whole line and switch to `visual state`
+`w` | wrap sexp
+`W` | unwrap sexp
`x$` | evil-lisp-state-eval-sexp-end-of-line
`xf` | eval-defun
`xl` | eval-last-sexp
diff --git a/evil-lisp-state.el b/evil-lisp-state.el
index c73c7ce8ca..018eb8e100 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: 3.1
+;; Version: 3.2
;; Package-Requires: ((evil "1.0.9") (smartparens "1.6.1") (expand-region
"0.10.0"))
;; URL: https://github.com/syl20bnr/evil-lisp-state
@@ -131,15 +131,16 @@ of COMMAND.
(define-key evil-lisp-state-map "p" 'evil-paste-after)
(define-key evil-lisp-state-map "P" 'evil-paste-before)
(define-key evil-lisp-state-map "r" 'sp-raise-sexp)
-(define-key evil-lisp-state-map "R" 'sp-rewrap-sexp)
(define-key evil-lisp-state-map (kbd "C-r") 'undo-tree-redo)
(evil-lisp-state-define-key "s" forward-slurp-sexp t)
(evil-lisp-state-define-key "S" splice-sexp-killing-forward t)
(define-key evil-lisp-state-map "t" 'sp-transpose-sexp)
(define-key evil-lisp-state-map "T" 'sp-transpose-hybrid-sexp)
(define-key evil-lisp-state-map "u" 'undo-tree-undo)
-(evil-lisp-state-define-key "U" unwrap-sexp t)
(define-key evil-lisp-state-map "v" 'er/expand-region)
+(define-key evil-lisp-state-map "w" '(lambda (&optional arg) (interactive
"P")
+ (sp-wrap-with-pair "(")))
+(evil-lisp-state-define-key "W" unwrap-sexp t)
(define-key evil-lisp-state-map "x$" 'evil-lisp-state-eval-sexp-end-of-line)
(define-key evil-lisp-state-map "xf" 'eval-defun)
(define-key evil-lisp-state-map "xl" 'eval-last-sexp)
