Advise `eval-region' to pulse

Just like SLIME.  I also rewrote acdw/eval-region-or-buffer a bit.

1 files changed, 12 insertions, 4 deletions

@@ -877,9 +877,10 @@ if ripgrep is installed, otherwise `consult-grep'."
   (defun acdw/eval-region-or-buffer ()
     (interactive)
     (if (region-active-p)
-        (with-message (format "Evaluating %S -> %S"
-                              (region-beginning) (region-end))
-          (eval-region (region-beginning) (region-end)))
+        (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))))
 
@@ -896,7 +897,14 @@ if ripgrep is installed, otherwise `consult-grep'."
     (define-key emacs-lisp-mode-map (kbd "C-c e") #'macrostep-expand))
 
   (setup (:straight eros)
-    (:hook-into emacs-lisp-mode)))
+    (:hook-into emacs-lisp-mode))
+
+  ;; Add advice to pulse evaluated regions
+  (defun acdw/elisp-eval-region-advice (fn start end &rest args)
+    (pulse-momentary-highlight-region start end)
+    (apply fn start end args))
+
+  (advice-add 'eval-region :around #'acdw/elisp-eval-region-advice))
 
 (setup (:straight geiser))