From 3d12dea135a628f5bc755ddceb0287176ec107e5 Mon Sep 17 00:00:00 2001
From: Case Duckworth <acdw@acdw.net>
Date: Mon, 6 Sep 2021 12:50:49 -0500
Subject: [PATCH] Reorganize emacs-lisp setup

---
 init.el | 30 +++++++++++++++++-------------
 1 file changed, 17 insertions(+), 13 deletions(-)

diff --git a/init.el b/init.el
index a2fb982..4b7c36d 100644
--- a/init.el
+++ b/init.el
@@ -598,13 +598,12 @@ AKA, DO NOT USE THIS FUNCTION!!!"
                          (error (elfeed-show-prev))))))))
 
 (setup elisp-mode
-  (:option eval-expression-print-length nil
-           eval-expression-print-level nil
-           lisp-indent-function #'lisp-indent-function)
+  (:with-mode emacs-lisp-mode ;; -_-
+    (:option eval-expression-print-length nil
+             eval-expression-print-level nil
+             lisp-indent-function #'lisp-indent-function)
 
-  (:with-mode emacs-lisp-mode
-    (:local-set lexical-binding t
-                (append imenu-generic-expression)
+    (:local-set (append imenu-generic-expression)
                 `("Setup"
                   ,(rx (seq
                         (group bol (* space) "(setup" (+ space))
@@ -618,13 +617,18 @@ AKA, DO NOT USE THIS FUNCTION!!!"
     ;; Emulate slime's eval binds
     (:bind "C-c C-c" #'eval-defun
            "C-c C-k" #'acdw/eval-region-or-buffer
-           "C-c C-z" #'ielm))
-  
-  ;; Add advice to pulse evaluated regions
-  (:advise eval-region :around
-           (defun eval-region@pulse (fn beg end &rest args)
-             (pulse-momentary-highlight-region beg end)
-             (apply fn beg end args))))
+           "C-c C-z" #'ielm)
+    
+    ;; Add advice to pulse evaluated regions
+    (:advise eval-region :around
+             (defun eval-region@pulse (fn beg end &rest args)
+               (pulse-momentary-highlight-region beg end)
+               (apply fn beg end args))))
+
+  (:with-mode lisp-interaction-mode ;; -___-
+    (:bind "C-c C-c" #'eval-defun
+           "C-c C-k" #'acdw/eval-region-or-buffer
+           "C-c C-z" #'ielm)))
 
 (setup (:straight elisp-slime-nav)
   (:hook-into emacs-lisp-mode