Start flyspell automatically at home

Free up the C-z s key for shell

1 files changed, 6 insertions, 3 deletions

@@ -307,15 +307,18 @@
   (unless (file-exists-p ispell-personal-dictionary)
     (write-region "" nil ispell-personal-dictionary nil 0))
 
-  (defun flyspell-start ()
+  (defun flyspell-start (&optional dont-warn-when-unknown-mode)
     "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))
-          (t (message "Non-text or -prog mode.  Run `flyspell-mode'."))))
-  (:leader "s" flyspell-start)
+          ((not dont-warn-when-unknown-mode) ; god this is ugly
+           (message "Non-text or -prog mode.  Run `flyspell-mode'."))))
+  
+  (when (acdw/system :home)
+    (flyspell-start t))
 
   (:when-loaded
    (setup (:straight flyspell-correct)