From 559e65a2f6f97228c944e564a1a88dcf272dca01 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 17 Aug 2021 17:26:45 -0500
Subject: Reconfigure flyspell

---
 init.el | 32 ++++++++++++++++++++++++--------
 1 file 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."
               (save-some-buffers t))))
 
 (setup flyspell
-  (setq-default ispell-program-name "hunspell"
-                ispell-dictionary "en_US"
-                ispell-personal-dictionary "~/.hunspell_personal"
-                ispell-local-dictionary-alist '(("en_US"
-                                                 "[[:alpha:]]" "[^[:alpha:]]"
-                                                 "[']" nil
-                                                 ("-d" "en_US") nil utf-8)))
+  ;; follow the directions here: https://old.reddit.com/r/emacs/comments/dgj0ae
+  ;; in short:
+  ;; - download hunspell from GitHub and put in ~/usr/bin
+  ;; - download LibreOffice English dictionaries and put in
+  ;;   ~/usr/share/hunspell
+  (setq-default
+   flyspell-issue-message-flag nil
+   ispell-program-name "hunspell"
+   ispell-dictionary "en_US"
+   ispell-personal-dictionary "~/.hunspell_personal"
+   ispell-local-dictionary-alist '(("en_US"
+                                    "[[:alpha:]]" "[^[:alpha:]]"
+                                    "[']" nil
+                                    ("-d" "en_US") nil utf-8)))
+
+  (acdw/system
+   (:work (setenv "DICPATH" (expand-file-name "~/usr/share/hunspell"))))
+  
   (when (boundp 'ispell-hunspell-dictionary-alist)
     (setq-default
      ispell-hunspell-dictionary-alist ispell-local-dictionary-alist))
@@ -435,7 +446,12 @@ like a dumbass."
 
   (:when-loaded
    (setup (:straight flyspell-correct)
-     (define-key flyspell-mode-map (kbd "C-;") #'flyspell-correct-wrapper))))
+     (:with-map flyspell-mode-map
+       (:bind "C-;" flyspell-correct-wrapper
+              ;; Remove all other binds
+              "C-," nil
+              "C-." nil
+              "C-M-i" nil)))))
 
 (setup frames
   (:option frame-title-format '("%b@"
-- 
cgit 1.4.1-21-gabe81