From 0175f1c0e9b7622af4b948ec0913b57152c4cf12 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 21 Apr 2021 17:22:54 -0500
Subject: Add messages in `acdw/eval-region-or-buffer'

Probably should write a macro, `with-message' or something.
---
 init.el | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/init.el b/init.el
index 108fcd9..1b3fc3a 100644
--- a/init.el
+++ b/init.el
@@ -839,8 +839,13 @@ if ripgrep is installed, otherwise `consult-grep'."
   (defun acdw/eval-region-or-buffer ()
     (interactive)
     (if (region-active-p)
-        (eval-region (region-beginning) (region-end))
-      (eval-buffer)))
+        (progn
+          (message "Evaluating %S -> %S..." (region-beginning) (region-end))
+          (eval-region (region-beginning) (region-end))
+          (message "Evaluating %S -> %S... Done." (region-beginning) (region-end)))
+      (message "%s" "Evaluating buffer...")
+      (eval-buffer)
+      (message "%s" "Evaluating buffer... Done.")))
   
   (:with-map emacs-lisp-mode-map
     (:bind "C-c C-c" acdw/eval-region-or-buffer
-- 
cgit 1.4.1-21-gabe81