diff options
Diffstat (limited to 'lisp/acdw-lisp.el')
-rw-r--r-- | lisp/acdw-lisp.el | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/lisp/acdw-lisp.el b/lisp/acdw-lisp.el new file mode 100644 index 0000000..8f551c9 --- /dev/null +++ b/lisp/acdw-lisp.el | |||
@@ -0,0 +1,25 @@ | |||
1 | ;;; acdw-lisp.el -*- lexical-binding: t; coding: utf-8-unix -*- | ||
2 | ;; | ||
3 | ;; Extras for Lisp modes. | ||
4 | |||
5 | (defvar lispy-modes '(emacs-lisp-mode | ||
6 | eval-expression-minibuffer | ||
7 | ielm-mode | ||
8 | lisp-mode | ||
9 | lisp-interaction-mode | ||
10 | scheme-mode | ||
11 | slime-repl-mode | ||
12 | sly-mrepl-mode) | ||
13 | "List of modes that are lisp-like enough to hook packages into.") | ||
14 | |||
15 | (defun acdw/eval-region-or-buffer () | ||
16 | (interactive) | ||
17 | (if (region-active-p) | ||
18 | (let ((begin (region-beginning)) | ||
19 | (end (region-end))) | ||
20 | (with-message (format "Evaluating %S -> %S" begin end) | ||
21 | (eval-region begin end))) | ||
22 | (with-message "Evaluating buffer" | ||
23 | (eval-buffer)))) | ||
24 | |||
25 | (provide 'acdw-lisp) | ||