summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-04-01 16:35:26 -0500
committerCase Duckworth2021-04-01 16:35:26 -0500
commitb132794031909b829b0e7e3a7c33f07346a94324 (patch)
tree904b4cad183576bce31c16c19b18c7cbd586dee6
parentRemove `ehelp' binds in favor of `helpful' package (diff)
downloademacs-b132794031909b829b0e7e3a7c33f07346a94324.tar.gz
emacs-b132794031909b829b0e7e3a7c33f07346a94324.zip
Set up spelling
-rw-r--r--init.el21
1 files changed, 21 insertions, 0 deletions
diff --git a/init.el b/init.el index 5e72e56..72c6c81 100644 --- a/init.el +++ b/init.el
@@ -337,6 +337,21 @@
337;; (interactive) 337;; (interactive)
338;; (electric-helpify 'describe-symbol)) 338;; (electric-helpify 'describe-symbol))
339;; (define-key ehelp-map "o" #'electric-describe-symbol) 339;; (define-key ehelp-map "o" #'electric-describe-symbol)
340
341;;;; Spelling
342(setup flyspell
343 (setenv "LANG" "en_US")
344 (:option ispell-program-name "hunspell"
345 ispell-dictionary "en_US"
346 ispell-personal-dictionary "~/.hunspell_personal")
347 (ispell-set-spellchecker-params)
348 (unless (file-exists-p ispell-personal-dictionary)
349 (write-region "" nil ispell-personal-dictionary nil 0))
350
351 ;; add hooks
352 (add-hook 'text-mode #'flyspell-mode)
353 (add-hook 'prog-mode #'flyspell-prog-mode))
354
340;;;; Etc. good defaults 355;;;; Etc. good defaults
341(setc custom-file (acdw/in-dir "custom.el") 356(setc custom-file (acdw/in-dir "custom.el")
342 inhibit-startup-screen t 357 inhibit-startup-screen t
@@ -573,6 +588,12 @@ call `zzz-to-char'."
573 :repo "https://git.sr.ht/~zge/nullpointer-emacs")) 588 :repo "https://git.sr.ht/~zge/nullpointer-emacs"))
574 (:option 0x0-default-host 'ttm)) 589 (:option 0x0-default-host 'ttm))
575 590
591;;;;; Flyspell-correct
592(when (executable-find ispell-program-name)
593 (with-eval-after-load 'flyspell
594 (setup (:straight flyspell-correct)
595 (define-key flyspell-mode-map (kbd "C-;") #'flyspell-correct-wrapper))))
596
576;;;; System tie-ins 597;;;; System tie-ins
577;; Insctead of using `setup''s `:needs', I'm going to wrap these in 598;; Insctead of using `setup''s `:needs', I'm going to wrap these in
578;; `exectuable-find' forms. I don't want to waste time with pulling packages 599;; `exectuable-find' forms. I don't want to waste time with pulling packages