awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

tools/flyspell: minor refactor

Browse Source 
- Allow flyspell-correct-* packages to be disabled by the end-user
  without breaking errors.
- Tie proselint detection to flycheck (which is what uses it)
This commit is contained in:
Henrik Lissner
2019-04-02 15:33:03 -04:00
parent ca32f7b7d1
commit 2c81ee4d98
1 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
modules/tools/flyspell/config.el
View File

@ -64,7 +64,8 @@ Since spellchecking can be slow in some buffers, this can be disabled with:
(defun +flyspell|inhibit-duplicate-detection-maybe ()
"Don't mark duplicates when style/grammar linters are present.
e.g. proselint and langtool."
(when (or (executable-find "proselint")
(when (or (and (bound-and-true-p flycheck-mode)
(executable-find "proselint"))
(featurep 'langtool))
(setq-local flyspell-mark-duplications-flag nil)))
(add-hook 'flyspell-mode-hook #'+flyspell|inhibit-duplicate-detection-maybe)
@ -84,10 +85,10 @@ e.g. proselint and langtool."
: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))
((require 'flyspell-correct-popup)
(cond ((and (featurep! :completion helm)
(require 'flyspell-correct-helm nil t)))
((and (featurep! :completion ivy)
(require 'flyspell-correct-ivy nil t)))
((require 'flyspell-correct-popup nil t)
(setq flyspell-popup-correct-delay 0.8)
(define-key popup-menu-keymap [escape] #'keyboard-quit))))