blob: 1b646ef39595c0db9da14b6386af1666d5d53d7a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
;;; acdw-apheleia.el --- bespoke apheleia junk -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(require 'apheleia)
(defcustom apheleia-stupid-modes '(makefile-mode
org-mode)
"List of stupid modes to not use `apheleia-global-mode' on."
:type '(repeat function)
:group 'apheleia)
(defun apheleia-dumb-auto-format ()
"Format a buffer dumbly."
;; If there's no apheleia formatter for the mode, just indent the
;; buffer.
(unless (or (apply #'derived-mode-p apheleia-stupid-modes)
(and (fboundp 'apheleia--get-formatter-command)
(apheleia--get-formatter-command)))
(indent-region (point-min) (point-max))))
(provide 'acdw-apheleia)
;;; acdw-apheleia ends here
|
