From 1ac673c76346abd12136db68280b807d17a5d0cb Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Fri, 28 May 2021 20:50:45 -0500
Subject: Change flyspell-start behavior

---
 init.el | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index 8d18dd9..359c188 100644
--- a/init.el
+++ b/init.el
@@ -390,20 +390,18 @@
   (unless (file-exists-p ispell-personal-dictionary)
     (write-region "" nil ispell-personal-dictionary nil 0))
 
-  (defun flyspell-start (&optional dont-warn-when-unknown-mode)
+  (defun flyspell-start ()
     "Start `flyspell-mode' or `flyspell-prog-mode', depending on current mode."
     (interactive)
     (cond ((derived-mode-p 'text-mode)
            (flyspell-mode))
           ((derived-mode-p 'prog-mode)
            (flyspell-prog-mode))
-          ((not dont-warn-when-unknown-mode) ; god this is ugly
+          ((called-interactively-p)
            (message "Non-text or -prog mode.  Run `flyspell-mode'."))))
 
-  (:global "C-c s" flyspell-start)
-  
   (when (acdw/system :home)
-    (flyspell-start t))
+    (add-hook 'change-major-mode-hook #'flyspell-start))
 
   (:when-loaded
    (setup (:straight flyspell-correct)
-- 
cgit 1.4.1-21-gabe81