about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2022-01-06 15:46:50 -0600
committerCase Duckworth2022-01-06 15:46:50 -0600
commit81152ca24289d2b08fcfe64b19164894c048524e (patch)
tree21b874b2ce94b453b9c792623877fabfdb04f340
parentAdd find-variable to +lookup-map (diff)
downloademacs-81152ca24289d2b08fcfe64b19164894c048524e.tar.gz
emacs-81152ca24289d2b08fcfe64b19164894c048524e.zip
Add +flyspell-correct-buffer
-rw-r--r--init.el4
-rw-r--r--lisp/+flyspell-correct.el12
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