config.el

;;; editor/fmt/config.el -*- lexical-binding: t; -*-

(defvar +fmt-formatter #'indent-region
  "The formatter that is used by `+fmt/dwim'.
This is a function that takes either zero or two arguments BEG and END.
With zero arguments, it shall format the current buffer from `point-min' to
`point-max'. It shall not call `widen' or any function operating outside the
restriction, such as `erase-buffer'.
With two arguments, it shall format the current buffer from BEG to END.")

(use-package! format-all
  :commands (format-all-buffer)
  :init (setq-default +fmt-formatter #'format-all-buffer)
  :config
  (add-to-list 'debug-ignored-errors "^No supported formatters for ")
  (advice-add #'format-all--buffer-thunk :override #'+fmt-restrict-buffer-thunk-a)
  (advice-add #'format-all--run-chain :override #'+fmt-restrict-run-chain-a))

(use-package! reformatter :defer t)

;; Emacs Builtin Modes

(setq-hook! '(html-mode-hook nxml-mode-hook)
  +fmt-formatter #'+fmt-htmltidy-format-region)

(setq-hook! '(mhtml-mode-hook
              css-mode-hook
              scss-mode-hook
              less-css-mode-hook
              js-mode-hook
              js-jsx-mode-hook)
  +fmt-formatter #'+fmt-prettier-format-region)

(setq-hook! 'org-mode-hook +fmt-formatter #'+fmt-org-format-buffer-or-region)

(setq-hook! '(pascal-mode-hook opascal-mode-hook)
  +fmt-formatter #'+fmt-ptop-format-region)

(setq-hook! '(perl-mode-hook cperl-mode-hook)
  +fmt-formatter #'+fmt-perltidy-format-region)

(setq-hook! 'python-mode-hook +fmt-formatter #'+fmt-black-format-region)

(setq-hook! 'sh-mode-hook +fmt-formatter #'+fmt-shfmt-format-region)

;; Doom Modules

(when (featurep! :tools lsp)
  (add-hook! '(lsp-managed-mode-hook eglot-managed-mode-hook)
             #'+fmt-lsp-maybe-set-formatter-h))

(when (featurep! :lang lua)
  (setq-hook! 'lua-mode-hook +fmt-formatter #'+fmt-luaformatter-format-region))

(when (featurep! :lang php)
  (setq-hook! 'php-mode-hook +fmt-formatter #'+fmt-prettier-format-region))

(when (featurep! :lang web)
  (setq-hook! '(web-mode-hook haml-mode-hook pug-mode-hook sass-mode-hook)
    +fmt-formatter #'+fmt-prettier-format-region)
  (setq-hook! 'sws-mode-hook +fmt-formatter #'indent-region))