30 lines
964 B
EmacsLisp
30 lines
964 B
EmacsLisp
;;; feature/spellcheck/config.el -*- lexical-binding: t; -*-
|
|
|
|
(def-package! flyspell ; built-in
|
|
:commands flyspell-mode
|
|
:config
|
|
(setq ispell-program-name (executable-find "aspell")
|
|
ispell-list-command "--list"
|
|
ispell-extr-args '("--dont-tex-check-comments"))
|
|
|
|
(defun +spellcheck|automatically ()
|
|
"Spellcheck the buffer when `flyspell-mode' is enabled."
|
|
(when flyspell-mode
|
|
(flyspell-buffer)))
|
|
(add-hook 'flyspell-mode-hook #'+spellcheck|automatically))
|
|
|
|
|
|
(def-package! flyspell-correct
|
|
:commands (flyspell-correct-word-generic
|
|
flyspell-correct-previous-word-generic)
|
|
:config
|
|
(cond ((featurep! :completion helm)
|
|
(require 'flyspell-correct-helm))
|
|
((featurep! :completion ivy)
|
|
(require 'flyspell-correct-ivy))
|
|
(t
|
|
(require 'flyspell-correct-popup)
|
|
(setq flyspell-popup-correct-delay 0.8)
|
|
(define-key popup-menu-keymap [escape] #'keyboard-quit))))
|
|
|