summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-12-30 21:14:06 -0600
committerCase Duckworth2021-12-30 21:14:06 -0600
commit42dd96957f172506f56d8aa762d2cd0e201d94fa (patch)
treeb12837fb74dd0236193aa0cf72f3dac6476955f4
parentAdd mouse context-menu-mode config (diff)
downloademacs-42dd96957f172506f56d8aa762d2cd0e201d94fa.tar.gz
emacs-42dd96957f172506f56d8aa762d2cd0e201d94fa.zip
Uh, things
-rw-r--r--init.el39
1 files changed, 24 insertions, 15 deletions
diff --git a/init.el b/init.el index 925dc87..df55ae8 100644 --- a/init.el +++ b/init.el
@@ -36,7 +36,7 @@
36 (dlet ((sentence-end-double-space t)) 36 (dlet ((sentence-end-double-space t))
37 (apply fn r))) 37 (apply fn r)))
38 ;; Bindings 38 ;; Bindings
39 (:global "C-x C-k" #'kill-this-buffer 39 (:global "C-x C-k" #'kill-current-buffer
40 "C-x 4 n" #'clone-buffer 40 "C-x 4 n" #'clone-buffer
41 "C-c v" #'visible-mode 41 "C-c v" #'visible-mode
42 "C-M-;" #'+lisp-comment-or-uncomment-sexp) 42 "C-M-;" #'+lisp-comment-or-uncomment-sexp)
@@ -79,11 +79,10 @@
79 (+pulse-location-mode +1)) 79 (+pulse-location-mode +1))
80 80
81(setup (:require reading) 81(setup (:require reading)
82 (:+key "C-c C-r" #'reading-mode)) 82 (:global "C-c C-r" #'reading-mode))
83 83
84(setup Info 84(setup Info
85 (:hook #'variable-pitch-mode 85 (:hook #'reading-mode))
86 #'reading-mode))
87 86
88(setup abbrev 87(setup abbrev
89 (:option abbrev-file-name (sync/ "abbrev.el") 88 (:option abbrev-file-name (sync/ "abbrev.el")
@@ -330,6 +329,7 @@
330 329
331(setup mouse 330(setup mouse
332 ;; Brand new for Emacs 28: see https://ruzkuku.com/texts/emacs-mouse.html 331 ;; Brand new for Emacs 28: see https://ruzkuku.com/texts/emacs-mouse.html
332 ;; Actually, look at this as well: https://www.emacswiki.org/emacs/Mouse3
333 (when (fboundp 'context-menu-mode) 333 (when (fboundp 'context-menu-mode)
334 ;; (:option context-menu-functions 334 ;; (:option context-menu-functions
335 ;; '(context-menu-ffap 335 ;; '(context-menu-ffap
@@ -393,15 +393,17 @@
393 (:when-loaded 393 (:when-loaded
394 (setf (alist-get ?. avy-dispatch-alist) #'avy-action-embark))) 394 (setf (alist-get ?. avy-dispatch-alist) #'avy-action-embark)))
395 395
396(setup (:straight (cape :host github :repo "minad/cape")) 396(setup (:straight (cape
397 (dolist (fn '(;; All available cape capfs listed here. 397 :host github :repo "minad/cape"))
398 cape-file 398 (dolist (fn
399 cape-dabbrev 399 ;; All available cape capfs listed here. Add them to the front since
400 cape-keyword 400 ;; they're reversed with `add-to-list'.
401 ;;cape-abbrev 401 '(;;cape-dict
402 ;;cape-ispell 402 cape-ispell
403 ;;cape-dict 403 cape-abbrev
404 )) 404 cape-keyword
405 cape-dabbrev
406 cape-file))
405 (add-to-list 'completion-at-point-functions fn))) 407 (add-to-list 'completion-at-point-functions fn)))
406 408
407(setup (:straight (capf-autosuggest 409(setup (:straight (capf-autosuggest
@@ -652,8 +654,10 @@ See also `crux-reopen-as-root-mode'."
652(setup (:straight embark) 654(setup (:straight embark)
653 (:option prefix-help-command 'embark-prefix-help-command) 655 (:option prefix-help-command 'embark-prefix-help-command)
654 (:+key "C-." #'embark-act 656 (:+key "C-." #'embark-act
655 "M-." #'embark-dwim 657 "M-." #'embark-dwim
656 "<f1> B" #'embark-bindings)) 658 "<f1> B" #'embark-bindings)
659 (:bind-into minibuffer
660 "C-." #'embark-act))
657 661
658(setup (:straight embark-consult) 662(setup (:straight embark-consult)
659 (:load-after consult embark) 663 (:load-after consult embark)
@@ -679,6 +683,11 @@ See also `crux-reopen-as-root-mode'."
679(setup (:straight expand-region) 683(setup (:straight expand-region)
680 (:+key "C-=" #'er/expand-region)) 684 (:+key "C-=" #'er/expand-region))
681 685
686(setup (:straight (fill-sentences-correctly
687 :host github
688 :repo "duckwork/fill-sentences-correctly.el"))
689 (fill-sentences-correctly-mode +1))
690
682(setup (:straight (filldent 691(setup (:straight (filldent
683 :host github 692 :host github
684 :repo "duckwork/filldent.el")) 693 :repo "duckwork/filldent.el"))