1 files changed, 67 insertions, 39 deletions

@@ -413,45 +413,73 @@ like a dumbass."
             (defun unfocused@save-buffers ()
               (save-some-buffers t))))
 
-(setup flyspell
-  ;; 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))
-  (:needs ispell-program-name) ; don't proceed if not installed
-  
-  (unless (file-exists-p ispell-personal-dictionary)
-    (write-region "" nil ispell-personal-dictionary nil 0))
-
-  (when (executable-find ispell-program-name)
-    (add-hook 'text-mode-hook #'flyspell-mode)
-    (add-hook 'prog-mode-hook #'flyspell-prog-mode))
-
-  (:when-loaded
-   (setup (:straight flyspell-correct)
-     (:with-map flyspell-mode-map
-       (:bind "C-;" flyspell-correct-wrapper
-              ;; Remove all other binds
-              "C-," nil
-              "C-." nil
-              "C-M-i" nil)))))
+;; (setup flyspell
+;;   ;; 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 "default"
+;;    ispell-personal-dictionary "~/.hunspell_personal"
+;;    ispell-local-dictionary-alist '(("default"
+;;                                     "[[:alpha:]]" "[^[:alpha:]]"
+;;                                     "[']" nil
+;;                                     ("-d" "en_US") nil utf-8)))
+
+;;   (acdw/system
+;;    (:work (let ((dicpath (expand-file-name "~/usr/share/hunspell/")))
+;;             (setenv "DICPATH" dicpath))))
+
+;;   ;; new variable `ispell-hunspell-dictionary-alist' is defined in Emacs
+;;   ;; If it's nil, Emacs tries to automatically set up the dictionaries.
+;;   (when (boundp 'ispell-hunspell-dictionary-alist)
+;;     (setq ispell-hunspell-dictionary-alist ispell-local-dictionary-alist))
+
+;;   (:needs ispell-program-name) ; don't proceed if not installed
+
+;;   (unless (file-exists-p ispell-personal-dictionary)
+;;     (write-region "" nil ispell-personal-dictionary nil 0))
+
+;;   (when (executable-find ispell-program-name)
+;;     (add-hook 'text-mode-hook #'flyspell-mode)
+;;     (add-hook 'prog-mode-hook #'flyspell-prog-mode))
+
+;;   (:when-loaded
+;;    (setup (:straight flyspell-correct)
+;;      (:with-map flyspell-mode-map
+;;        (:bind "C-;" flyspell-correct-wrapper
+;;               ;; Remove all other binds
+;;               "C-," nil
+;;               "C-." nil
+;;               "C-M-i" nil)))))
+
+;; (setup flyspell
+;;   (:option
+;;    flyspell-issue-message-flag nil
+;;    ispell-program-name "aspell"
+;;    ispell-dictionary "en_US"
+;;    ispell-personal-dictionary "~/.dictionary"
+;;    ispell-extra-args '("--sug-mode=ultra" "--lang=en_US"))
+
+;;   (:needs ispell-program-name)
+
+;;   (unless (file-exists-p ispell-personal-dictionary)
+;;     (write-region "" nil ispell-personal-dictionary nil 0))
+
+;;   (add-hook 'text-mode-hook #'flyspell-mode)
+;;   (add-hook 'prog-mode-hook #'flyspell-prog-mode)
+
+;;   (:when-loaded
+;;    (setup (:straight flyspell-correct)
+;;      (:with-map flyspell-mode-map
+;;        (:bind "C-;" flyspell-correct-wrapper
+;;               ;; Remove other binds
+;;               "C-," nil
+;;               "C-." nil
+;;               "C-M-i" nil)))))
 
 (setup frames
   (:option frame-title-format '("%b@"