diff options
| author | Case Duckworth | 2022-01-06 15:46:50 -0600 |
|---|---|---|
| committer | Case Duckworth | 2022-01-06 15:46:50 -0600 |
| commit | 81152ca24289d2b08fcfe64b19164894c048524e (patch) | |
| tree | 21b874b2ce94b453b9c792623877fabfdb04f340 | |
| parent | Add find-variable to +lookup-map (diff) | |
| download | emacs-81152ca24289d2b08fcfe64b19164894c048524e.tar.gz emacs-81152ca24289d2b08fcfe64b19164894c048524e.zip | |
Add +flyspell-correct-buffer
| -rw-r--r-- | init.el | 4 | ||||
| -rw-r--r-- | lisp/+flyspell-correct.el | 12 |
2 files changed, 15 insertions, 1 deletions
| diff --git a/init.el b/init.el index 07679e7..67528fd 100644 --- a/init.el +++ b/init.el | |||
| @@ -948,9 +948,11 @@ See also `crux-reopen-as-root-mode'." | |||
| 948 | (:+key "M-q" #'filldent-dwim)) | 948 | (:+key "M-q" #'filldent-dwim)) |
| 949 | 949 | ||
| 950 | (setup (:straight flyspell-correct) | 950 | (setup (:straight flyspell-correct) |
| 951 | (:+also-load +flyspell-correct ) | ||
| 951 | (:option flyspell-correct--cr-key ";") | 952 | (:option flyspell-correct--cr-key ";") |
| 952 | (:bind-into flyspell | 953 | (:bind-into flyspell |
| 953 | "C-;" #'flyspell-correct-wrapper)) | 954 | "C-;" #'flyspell-correct-wrapper |
| 955 | "<f7>" #'+flyspell-correct-buffer)) | ||
| 954 | 956 | ||
| 955 | (setup (:straight-when (forge | 957 | (setup (:straight-when (forge |
| 956 | :host github :repo "magit/forge") | 958 | :host github :repo "magit/forge") |
| diff --git a/lisp/+flyspell-correct.el b/lisp/+flyspell-correct.el new file mode 100644 index 0000000..473b054 --- /dev/null +++ b/lisp/+flyspell-correct.el | |||
| @@ -0,0 +1,12 @@ | |||
| 1 | ;;; +flyspell-correct.el --- -*- lexical-binding: t; -*- | ||
| 2 | |||
| 3 | ;;; Code: | ||
| 4 | |||
| 5 | (defun +flyspell-correct-buffer (&rest _) ; Enables this to be run as a hook | ||
| 6 | "Run `flyspell-correct-wrapper' on all misspelled words in the buffer." | ||
| 7 | (interactive) | ||
| 8 | (+with-message "Checking spelling" | ||
| 9 | (flyspell-correct-move (point-min) :forward :rapid))) | ||
| 10 | |||
| 11 | (provide '+flyspell-correct) | ||
| 12 | ;;; +flyspell-correct.el ends here | ||