branch: elpa/evil-lisp-state
commit 8d58b864baca282645044c59b28b3f03216e8641
Author: syl20bnr <[email protected]>
Commit: syl20bnr <[email protected]>
Initial push of evil-lisp-state.el
---
evil-lisp-state.el | 96 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 96 insertions(+)
diff --git a/evil-lisp-state.el b/evil-lisp-state.el
new file mode 100644
index 0000000000..8c43c855a1
--- /dev/null
+++ b/evil-lisp-state.el
@@ -0,0 +1,96 @@
+;;; evil-lisp-state.el --- Add an evil state to navigate Lisp code and edit
the sexp tree with mnemonic key bindings using smartparens.
+
+;; Copyright (C) 2014 syl20bnr
+
+;; Author: Sylvain Benner <[email protected]>
+;; Keywords: convenience editing evil smartparens lisp mnemonic
+;; Created: 9 Oct 2014
+;; Version: 1.0
+;; Package-Requires: ((evil "1.0.9") (smartparens "1.6.1"))
+;; URL: https://github.com/syl20bnr/evil-lisp-state
+
+;; This file is not part of GNU Emacs.
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; Adds a new Evil state called --LISP-- (<L>) with mnemonics key bindings
+;; to navigate Lisp code and edit the sexp tree.
+
+;; Configuration example:
+;; (add-hook)
+
+;; More information on the Github repository:
+;; https://github.com/syl20bnr/evil-lisp-state
+
+;;; Code:
+
+(require 'evil)
+(require 'smartparens)
+
+(evil-define-state lisp
+ "Lisp state.
+ Used to navigate lisp code and manipulate the sexp tree."
+ :tag " <L> "
+ :cursor (bar . 2)
+ ;; force smartparens mode
+ (if (evil-lisp-state-p) (smartparens-mode)))
+
+;; key bindings
+(define-key evil-lisp-state-map "1" 'digit-argument)
+(define-key evil-lisp-state-map "2" 'digit-argument)
+(define-key evil-lisp-state-map "3" 'digit-argument)
+(define-key evil-lisp-state-map "4" 'digit-argument)
+(define-key evil-lisp-state-map "5" 'digit-argument)
+(define-key evil-lisp-state-map "6" 'digit-argument)
+(define-key evil-lisp-state-map "7" 'digit-argument)
+(define-key evil-lisp-state-map "8" 'digit-argument)
+(define-key evil-lisp-state-map "9" 'digit-argument)
+(define-key evil-lisp-state-map "$" 'sp-end-of-sexp)
+(define-key evil-lisp-state-map "0" 'sp-beginning-of-sexp)
+(define-key evil-lisp-state-map "bh" 'sp-backward-barf-sexp)
+(define-key evil-lisp-state-map "bl" 'sp-forward-barf-sexp)
+(define-key evil-lisp-state-map "c" 'sp-convolute-sexp)
+(define-key evil-lisp-state-map "d" 'sp-kill-sexp)
+(define-key evil-lisp-state-map "e$" 'evil-lisp-state-eval-sexp-end-of-line)
+(define-key evil-lisp-state-map "ef" 'eval-defun)
+(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 "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 "l" 'sp-forward-sexp)
+(define-key evil-lisp-state-map "r" 'sp-raise-sexp)
+(define-key evil-lisp-state-map "C-r" 'undo-tree-redo)
+(define-key evil-lisp-state-map "sa" 'sp-splice-sexp-killing-around)
+(define-key evil-lisp-state-map "sb" 'sp-splice-sexp-killing-backward)
+(define-key evil-lisp-state-map "sf" 'sp-splice-sexp-killing-forward)
+(define-key evil-lisp-state-map "sh" 'sp-backward-slurp-sexp)
+(define-key evil-lisp-state-map "sl" 'sp-forward-slurp-sexp)
+(define-key evil-lisp-state-map "ss" 'sp-splice-sexp)
+(define-key evil-lisp-state-map "u" 'undo-tree-undo)
+(define-key evil-lisp-state-map [escape] 'evil-normal-state)
+
+(defun evil-lisp-state-eval-sexp-end-of-line ()
+ "Evaluate the last sexp at the end of the current line."
+ (interactive)
+ (save-excursion
+ (evil-end-of-line)
+ (eval-last-sexp nil)))
+
+(provide 'evil-lisp-state)
