Add function `dumb-auto-format' that checks with apheleia first

In adding `dumb-auto-format', I've removed `acdw/reformat-buffer' because it's
not complex enough or stand-alone enough to keep as its own function.

21 guns.

2 files changed, 10 insertions, 10 deletions

@@ -729,14 +729,21 @@ if ripgrep is installed, otherwise `consult-grep'."
 ;;;;; Formatting
 (setup (:straight (apheleia :host github
                             :repo "raxod502/apheleia"))
-  (apheleia-global-mode +1))
+  (apheleia-global-mode +1)
+
+  ;; Use a dumb formatter on modes that `apheleia' doesn't work for.
+  (defun dumb-auto-format ()
+    "Run `indent-region' in buffers that don't have an
+  `apheleia' formatter set."
+    (unless (apheleia--get-formatter-command)
+      (indent-region (point-min) (point-max))))
+  (add-hook 'before-save-hook #'dumb-auto-format))
 
 ;;;;; Emacs lisp
 (setup emacs-lisp-mode
   (:option eval-expression-print-length nil
            eval-expression-print-level nil
-           lisp-indent-function #'lisp-indent-function)
-  (:local-hook before-save-hook acdw/reindent-buffer))
+           lisp-indent-function #'lisp-indent-function))
 
 (setup  (:straight macrostep)
   (define-key emacs-lisp-mode-map (kbd "C-c e") #'macrostep-expand))
@@ -58,13 +58,6 @@ Ready for use with `after-focus-change-function'."
     (run-at-time sunset-time (* 60 60 24) sunset-command)
     (run-at-time "12:00am" (* 60 60 24) sunset-command)))
 
-;;;; Re-indent a buffer
-(defun acdw/reindent-buffer ()
-  "Call `indent-region' on the whole buffer."
-  (interactive)
-  (save-excursion
-    (indent-region (point-min) (point-max))))
-
 ;;; Garbage collection hacks
 
 (defconst acdw/gc-cons-threshold-basis (* 800 1024)