From 152daf82ef2bdfe8d7a863d4d87fec02cb5a7465 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 21 Apr 2021 17:54:29 -0500
Subject: Add macro `with-message'

---
 init.el | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index b8523e2..d2a8960 100644
--- a/init.el
+++ b/init.el
@@ -846,13 +846,11 @@ if ripgrep is installed, otherwise `consult-grep'."
   (defun acdw/eval-region-or-buffer ()
     (interactive)
     (if (region-active-p)
-        (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-message (format "Evaluating %S -> %S"
+                              (region-beginning) (region-end))
+          (eval-region (region-beginning) (region-end)))
+      (with-message "Evaluating buffer"
+        (eval-buffer))))
   
   (:with-map emacs-lisp-mode-map
     (:bind "C-c C-c" acdw/eval-region-or-buffer
-- 
cgit 1.4.1-21-gabe81