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

1 files changed, 36 insertions, 11 deletions

@@ -240,7 +240,11 @@
   ;; Add advice to pulse evaluated regions
   (define-advice eval-region (:around (fn start end &rest args) pulse-region)
     (pulse-momentary-highlight-region start end)
-    (apply fn start end args)))
+    (apply fn start end args))
+
+  (setup (:straight elisp-slime-nav)
+    (:hook-into emacs-lisp-mode
+                ielm-mode)))
 
 (setup encoding
   (:option locale-coding-system 'utf-8-unix
@@ -417,6 +421,19 @@ like a dumbass."
             (defun unfocused@save-buffers ()
               (save-some-buffers t))))
 
+(setup flyspell
+  (add-hook 'text-mode-hook #'flyspell-mode))
+
+(setup (:straight flyspell-correct)
+  (add-hook 'flyspell-mode-hook
+            (defun flyspell-mode@flyspell-correct ()
+              (dolist (keybind '(("C-;" . flyspell-correct-wrapper)
+                                 ("C-," . nil)
+                                 ("C-." . nil)
+                                 ("C-M-i" . nil)))
+                (define-key flyspell-mode-map
+                  (kbd (car keybind)) (cdr keybind))))))
+
 ;; (setup flyspell
 ;;   ;; follow the directions here: https://old.reddit.com/r/emacs/comments/dgj0ae
 ;;   ;; in short:
@@ -790,11 +807,13 @@ like a dumbass."
 
 (setup variable-pitch-mode
 
-  (defun variable-pitch@disable-fill-column-indicator ()
-    (display-fill-column-indicator-mode -1))
-  
-  (:hook acdw-fonts/adapt-variable-pitch
-         variable-pitch@disable-fill-column-indicator))
+  ;; I might want to change this to `buffer-face-mode-hook'...
+  (advice-add 'variable-pitch-mode :after
+              (defun variable-pitch-mode@setup (&rest _)
+                "Set up `variable-pitch-mode' with my customizations."
+                (display-fill-column-indicator-mode (if buffer-face-mode
+                                                        -1
+                                                      +1)))))
 
 (setup view
   (:option view-read-only t)
@@ -919,9 +938,9 @@ like a dumbass."
   (:global "M-=" count-words
            "C-w" kill-region-or-backward-word
            "<help> h" nil ; HELLO takes a long time to load on Windows
-           "M-c" capitalize-dwim
-           "M-u" upcase-dwim
-           "M-l" downcase-dwim)
+           "C-c c" capitalize-dwim
+           "C-c u" upcase-dwim
+           "C-c l" downcase-dwim)
 
   (:global "C-c t" acdw/insert-iso-date
            "C-z" nil))
@@ -955,7 +974,8 @@ like a dumbass."
   (dired-async-mode +1))
 
 (setup (:straight ace-link)
-  (ace-link-setup-default))
+  (ace-link-setup-default)
+  (define-key erc-mode-map (kbd "C-o") #'ace-link))
 
 (setup (:straight avy)
   (:global "C-:" avy-goto-char
@@ -1432,6 +1452,7 @@ successive invocations."
   (require 'acdw-org)                   ; so I don't clutter up init.el
   (:option
    org-adapt-indentation nil
+   org-agenda-files nil                 ; only until I set this up
    org-catch-invisible-edits 'smart
    org-clock-clocked-in-display 'mode-line
    org-clock-string-limit 7     ; gives time and not title
@@ -1602,6 +1623,11 @@ successive invocations."
     (add-to-list 'auto-mode-alist spec))
   (add-hook 'ssh-config-mode-hook #'turn-on-font-lock))
 
+(setup (:straight (topsy
+                   :host github
+                   :repo "alphapapa/topsy.el"))
+  (:hook-into prog-mode))
+
 (setup (:straight typo)
   (add-hook 'text-mode-hook
             (defun text-mode@typo-unless ()
@@ -1761,6 +1787,5 @@ call `zzz-to-char'."
 ;;;; Work
 (when (acdw/system :work)
   (setup (:straight ahk-mode)))
-
 
 ;;; init.el ends here