From a6fd6508c9f853df9f0a61079f2268cd88e3d5f7 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Mon, 16 Aug 2021 22:48:29 -0500
Subject: Break out functionality into other files

---
 lisp/acdw-lisp.el | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 lisp/acdw-lisp.el

(limited to 'lisp/acdw-lisp.el')

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 @@
+;;; acdw-lisp.el -*- lexical-binding: t; coding: utf-8-unix -*-
+;;
+;; Extras for Lisp modes.
+
+(defvar lispy-modes '(emacs-lisp-mode
+                      eval-expression-minibuffer
+                      ielm-mode
+                      lisp-mode
+                      lisp-interaction-mode
+                      scheme-mode
+                      slime-repl-mode
+                      sly-mrepl-mode)
+  "List of modes that are lisp-like enough to hook packages into.")
+
+(defun acdw/eval-region-or-buffer ()
+  (interactive)
+  (if (region-active-p)
+      (let ((begin (region-beginning))
+            (end (region-end)))
+        (with-message (format "Evaluating %S -> %S" begin end)
+          (eval-region begin end)))
+    (with-message "Evaluating buffer"
+      (eval-buffer))))
+
+(provide 'acdw-lisp)
-- 
cgit 1.4.1-21-gabe81