From c07283b30d28e9e145c06480f2a7ae50958bc1a1 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Thu, 19 Aug 2021 17:28:50 -0500 Subject: Totally comment out all flyspell stuff SOO ANNOOYYINNNGG --- init.el | 106 ++++++++++++++++++++++++++++++++++++++++------------------------ 1 file changed, 67 insertions(+), 39 deletions(-) diff --git a/init.el b/init.el index 1224930..99d9115 100644 --- a/init.el +++ b/init.el @@ -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@" -- cgit 1.4.1-21-gabe81