Add macro `with-message'

2 files changed, 14 insertions, 7 deletions

@@ -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
@@ -70,6 +70,15 @@ each hook in HOOKS."
         file
       nil)))
 
+(defmacro with-message (message &rest body)
+  "Execute BODY, messaging 'MESSAGE...' before and 'MESSAGE... Done.' after."
+  (declare (indent 1))
+  ;; Wrap a progn inside a prog1 to return the return value of the body.
+  `(prog1
+       (progn (message "%s..." ,message)
+              ,@body)
+     (message "%s... Done." ,message)))
+
 (defun acdw/dir (&optional file make-directory)
   "Place Emacs files in one place.