Uh, things

1 files changed, 24 insertions, 15 deletions

@@ -36,7 +36,7 @@
     (dlet ((sentence-end-double-space t))
       (apply fn r)))
   ;; Bindings
-  (:global "C-x C-k" #'kill-this-buffer
+  (:global "C-x C-k" #'kill-current-buffer
            "C-x 4 n" #'clone-buffer
            "C-c v" #'visible-mode
            "C-M-;" #'+lisp-comment-or-uncomment-sexp)
@@ -79,11 +79,10 @@
   (+pulse-location-mode +1))
 
 (setup (:require reading)
-  (:+key "C-c C-r" #'reading-mode))
+  (:global "C-c C-r" #'reading-mode))
 
 (setup Info
-  (:hook #'variable-pitch-mode
-         #'reading-mode))
+  (:hook #'reading-mode))
 
 (setup abbrev
   (:option abbrev-file-name (sync/ "abbrev.el")
@@ -330,6 +329,7 @@
 
 (setup mouse
   ;; Brand new for Emacs 28: see https://ruzkuku.com/texts/emacs-mouse.html
+  ;; Actually, look at this as well: https://www.emacswiki.org/emacs/Mouse3
   (when (fboundp 'context-menu-mode)
     ;; (:option context-menu-functions
     ;;          '(context-menu-ffap
@@ -393,15 +393,17 @@
   (:when-loaded
     (setf (alist-get ?. avy-dispatch-alist) #'avy-action-embark)))
 
-(setup (:straight (cape :host github :repo "minad/cape"))
-  (dolist (fn '(;; All available cape capfs listed here.
-                cape-file
-                cape-dabbrev
-                cape-keyword
-                ;;cape-abbrev
-                ;;cape-ispell
-                ;;cape-dict
-                ))
+(setup (:straight (cape
+                   :host github :repo "minad/cape"))
+  (dolist (fn
+           ;; All available cape capfs listed here. Add them to the front since
+           ;; they're reversed with `add-to-list'.
+           '(;;cape-dict
+             cape-ispell
+             cape-abbrev
+             cape-keyword
+             cape-dabbrev
+             cape-file))
     (add-to-list 'completion-at-point-functions fn)))
 
 (setup (:straight (capf-autosuggest
@@ -652,8 +654,10 @@ See also `crux-reopen-as-root-mode'."
 (setup (:straight embark)
   (:option prefix-help-command 'embark-prefix-help-command)
   (:+key "C-." #'embark-act
-     "M-." #'embark-dwim
-     "<f1> B" #'embark-bindings))
+         "M-." #'embark-dwim
+         "<f1> B" #'embark-bindings)
+  (:bind-into minibuffer
+    "C-." #'embark-act))
 
 (setup (:straight embark-consult)
   (:load-after consult embark)
@@ -679,6 +683,11 @@ See also `crux-reopen-as-root-mode'."
 (setup (:straight expand-region)
   (:+key "C-=" #'er/expand-region))
 
+(setup (:straight (fill-sentences-correctly
+                   :host github
+                   :repo "duckwork/fill-sentences-correctly.el"))
+  (fill-sentences-correctly-mode +1))
+
 (setup (:straight (filldent
                    :host github
                    :repo "duckwork/filldent.el"))