Merge branch 'main' of https://tildegit.org/acdw/emacs

1 files changed, 79 insertions, 41 deletions

@@ -416,45 +416,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@"
@@ -822,7 +850,7 @@ like a dumbass."
 
 (setup (:straight (0x0 :host gitlab
                        :repo "willvaughn/emacs-0x0"))
-  (:option 0x0-default-host 'ttm))
+  (:option 0x0-default-server 'ttm))
 
 (setup (:straight (apheleia :host github
                             :repo "raxod502/apheleia"))
@@ -1119,11 +1147,21 @@ successive invocations."
     (add-to-list 'auto-mode-alist '("\\.fb\\'" . forth-block-mode))))
 
 (setup (:straight helpful)
+  (:option helpful-max-buffers 5
+           ;;helpful-switch-buffer-function #'pop-to-buffer
+           helpful-switch-buffer-function
+           (lambda (buf)
+             (pop-to-buffer buf
+                            '((display-buffer-reuse-mode-window
+                               display-buffer-pop-up-window)
+                              (mode . helpful-mode))
+                            :norecord)))
   (:global "<help> f" helpful-callable
            "<help> v" helpful-variable
            "<help> k" helpful-key
            "<help> o" helpful-symbol
-           "C-c C-d" helpful-at-point))
+           "C-c C-d" helpful-at-point)
+  (:bind "q" kill-buffer-and-window))
 
 (setup (:straight iscroll)
   (:hook-into text-mode))