[nongnu] elpa/evil-lisp-state 8a3cffa60b 100/125: Add 0 and $ key bindings

[ELPA Syncer]

branch: elpa/evil-lisp-state
commit 8a3cffa60b06866f57a3987c5ca9e865605cb04e
Author: syl20bnr <sylvain.benner@gmail.com>
Commit: syl20bnr <sylvain.benner@gmail.com>

    Add 0 and $ key bindings
---
 README.md          |  2 ++
 evil-lisp-state.el | 10 ++++++++++
 2 files changed, 12 insertions(+)

diff --git a/README.md b/README.md
index 3ff0d507f5..680d3eb8b4 100644
--- a/README.md
+++ b/README.md
@@ -65,6 +65,8 @@ Key Binding                 | Function
 <kbd>\<leader\> m :</kbd>   | ex command
 <kbd>\<leader\> m (</kbd>   | insert expression before (same level as current 
one)
 <kbd>\<leader\> m )</kbd>   | insert expression after (same level as current 
one)
+<kbd>\<leader\> m $</kbd>   | go to the end of current sexp
+<kbd>\<leader\> m 0</kbd>   | go to the beginning of current sexp
 <kbd>\<leader\> m a</kbd>   | absorb expression
 <kbd>\<leader\> m b</kbd>   | forward barf expression
 <kbd>\<leader\> m B</kbd>   | backward barf expression
diff --git a/evil-lisp-state.el b/evil-lisp-state.el
index 886220f00e..a794adfb7c 100644
--- a/evil-lisp-state.el
+++ b/evil-lisp-state.el
@@ -50,6 +50,8 @@
 ;; `leader m :'   | ex command
 ;; `leader m ('   | insert expression before (same level as current one)
 ;; `leader m )'   | insert expression after (same level as current one)
+;; `leader m $'   | go to the end of current sexp
+;; `leader m 0'   | go to the beginning of current sexp
 ;; `leader m a'   | absorb expression
 ;; `leader m b'   | forward barf expression
 ;; `leader m B'   | backward barf expression
@@ -173,6 +175,8 @@
     (":"   . evil-ex)
     ("("   . lisp-state-insert-sexp-before)
     (")"   . lisp-state-insert-sexp-after)
+    ("$"   . sp-end-of-sexp)
+    ("0"   . lisp-state-beginning-of-sexp)
     ("1"   . digit-argument)
     ("2"   . digit-argument)
     ("3"   . digit-argument)
@@ -308,6 +312,12 @@
     (end-of-line)
     (eval-last-sexp nil)))
 
+(defun lisp-state-beginning-of-sexp (&optional arg)
+  "Go to the beginning of current s-exp"
+  (interactive "P")
+  (sp-beginning-of-sexp)
+  (evil-backward-char))
+
 
 (provide 'evil-lisp-state)