blob: 21ff8b0a537500b56a0ffb00cb2b8e41771a0af3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
;;; init-spelling --- Spelling Configuration
;;; Commentary:
;;; Code:
(defvar ispell)
(defvar ispell-extra-args)
(defvar flyspell)
(defvar helm-flyspell)
(defvar helm-flyspell-correct)
(defvar ispell-program-name)
(defvar flyspell-prog-mode)
(defvar flyspell-use-meta-tab)
(defvar flyspell-prog-text-faces)
(defvar flyspell-mode-map)
(use-package ispell
:config
(setq ispell-program-name "aspell")
(setq ispell-extra-args '("--sug-mode=ultra" "--lang=en_US" "--camel-case")))
(use-package flyspell
:after ispell
:diminish
:if (executable-find ispell-program-name)
:bind (:map flyspell-mode-map
("C-;" . nil)
("C-c $" . nil))
:when (executable-find ispell-program-name)
:commands (flyspell-mode flyspell-prog-mode)
:config
(setq flyspell-use-meta-tab nil)
(add-to-list 'flyspell-prog-text-faces 'nxml-text-face)
:init
(add-hook 'text-mode-hook #'flyspell-mode)
(add-hook 'prog-mode-hook #'flyspell-prog-mode))
(use-package helm-flyspell
:commands helm-flyspell-correct
:after flyspell
:bind (:map flyspell-mode-map
("C-c ." . helm-flyspell-correct)))
(provide 'init-spelling)
;;; init-spelling.el ends here
|