summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-08-17 17:26:45 -0500
committerCase Duckworth2021-08-17 17:26:45 -0500
commit559e65a2f6f97228c944e564a1a88dcf272dca01 (patch)
treebec25efcf9352e8eac23d143881390920517f3b8
parentFinesse `text-mode-hook' vis-a-vis `typo-mode' (diff)
downloademacs-559e65a2f6f97228c944e564a1a88dcf272dca01.tar.gz
emacs-559e65a2f6f97228c944e564a1a88dcf272dca01.zip
Reconfigure flyspell
-rw-r--r--init.el32
1 files changed, 24 insertions, 8 deletions
diff --git a/init.el b/init.el index 1a85a20..c50b089 100644 --- a/init.el +++ b/init.el
@@ -414,13 +414,24 @@ like a dumbass."
414 (save-some-buffers t)))) 414 (save-some-buffers t))))
415 415
416(setup flyspell 416(setup flyspell
417 (setq-default ispell-program-name "hunspell" 417 ;; follow the directions here: https://old.reddit.com/r/emacs/comments/dgj0ae
418 ispell-dictionary "en_US" 418 ;; in short:
419 ispell-personal-dictionary "~/.hunspell_personal" 419 ;; - download hunspell from GitHub and put in ~/usr/bin
420 ispell-local-dictionary-alist '(("en_US" 420 ;; - download LibreOffice English dictionaries and put in
421 "[[:alpha:]]" "[^[:alpha:]]" 421 ;; ~/usr/share/hunspell
422 "[']" nil 422 (setq-default
423 ("-d" "en_US") nil utf-8))) 423 flyspell-issue-message-flag nil
424 ispell-program-name "hunspell"
425 ispell-dictionary "en_US"
426 ispell-personal-dictionary "~/.hunspell_personal"
427 ispell-local-dictionary-alist '(("en_US"
428 "[[:alpha:]]" "[^[:alpha:]]"
429 "[']" nil
430 ("-d" "en_US") nil utf-8)))
431
432 (acdw/system
433 (:work (setenv "DICPATH" (expand-file-name "~/usr/share/hunspell"))))
434
424 (when (boundp 'ispell-hunspell-dictionary-alist) 435 (when (boundp 'ispell-hunspell-dictionary-alist)
425 (setq-default 436 (setq-default
426 ispell-hunspell-dictionary-alist ispell-local-dictionary-alist)) 437 ispell-hunspell-dictionary-alist ispell-local-dictionary-alist))
@@ -435,7 +446,12 @@ like a dumbass."
435 446
436 (:when-loaded 447 (:when-loaded
437 (setup (:straight flyspell-correct) 448 (setup (:straight flyspell-correct)
438 (define-key flyspell-mode-map (kbd "C-;") #'flyspell-correct-wrapper)))) 449 (:with-map flyspell-mode-map
450 (:bind "C-;" flyspell-correct-wrapper
451 ;; Remove all other binds
452 "C-," nil
453 "C-." nil
454 "C-M-i" nil)))))
439 455
440(setup frames 456(setup frames
441 (:option frame-title-format '("%b@" 457 (:option frame-title-format '("%b@"