From 7514b598cfbce6f8bc872bd49a7c4ca19d207259 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 28 Apr 2021 15:28:00 -0500
Subject: Advise `eval-region' to pulse
Just like SLIME. I also rewrote acdw/eval-region-or-buffer a bit.
---
init.el | 16 ++++++++++++----
1 file changed, 12 insertions(+), 4 deletions(-)
diff --git a/init.el b/init.el
index a064bda..3d47b44 100644
--- a/init.el
+++ b/init.el
@@ -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))
--
cgit 1.4.1-21-gabe81