emacs/lisp/+flyspell-correct.el

;;; +flyspell-correct.el ---                         -*- lexical-binding: t; -*-

;;; Code:

(require 'flyspell-correct)

(defun +flyspell-correct-buffer (&optional prefix)
  "Run `flyspell-correct-wrapper' on all misspelled words in the buffer.
With PREFIX, prompt to change the current dictionary."
  (interactive "P")
  (flyspell-buffer)
  (when prefix
    (let ((current-prefix-arg nil))
      (call-interactively #'ispell-change-dictionary)))
  (+with-message "Checking spelling"
    (flyspell-correct-move (point-min) :forward :rapid)))

(defun +flyspell-correct-buffer-h (&rest _)
  "Run `+flyspell-correct-buffer'.
This is suitable for placement in a hook."
  (+flyspell-correct-buffer))

(provide '+flyspell-correct)
;;; +flyspell-correct.el ends here