about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el24
-rw-r--r--lisp/+emacs.el7
2 files changed, 24 insertions, 7 deletions
diff --git a/init.el b/init.el index df55ae8..4cdc31a 100644 --- a/init.el +++ b/init.el
@@ -157,6 +157,11 @@
157 calendar-latitude _location-latitude 157 calendar-latitude _location-latitude
158 calendar-longitude _location-longitude)) 158 calendar-longitude _location-longitude))
159 159
160(setup compile
161 (:option compilation-always-kill t
162 compilation-ask-about-save nil
163 compilation-scroll-output t))
164
160(setup cus-edit 165(setup cus-edit
161 ;; I don't use Custom to actually /make/ any customizations, but it's handy to 166 ;; I don't use Custom to actually /make/ any customizations, but it's handy to
162 ;; (A) see what options are available and (B) persist some changes across 167 ;; (A) see what options are available and (B) persist some changes across
@@ -398,13 +403,13 @@
398 (dolist (fn 403 (dolist (fn
399 ;; All available cape capfs listed here. Add them to the front since 404 ;; All available cape capfs listed here. Add them to the front since
400 ;; they're reversed with `add-to-list'. 405 ;; they're reversed with `add-to-list'.
401 '(;;cape-dict 406 '(cape-file
402 cape-ispell
403 cape-abbrev
404 cape-keyword
405 cape-dabbrev 407 cape-dabbrev
406 cape-file)) 408 cape-keyword
407 (add-to-list 'completion-at-point-functions fn))) 409 cape-abbrev
410 cape-ispell
411 ;;cape-dict))
412 (add-to-list 'completion-at-point-functions fn :append)))))
408 413
409(setup (:straight (capf-autosuggest 414(setup (:straight (capf-autosuggest
410 :host nil 415 :host nil
@@ -663,6 +668,13 @@ See also `crux-reopen-as-root-mode'."
663 (:load-after consult embark) 668 (:load-after consult embark)
664 (add-hook 'embark-collect-mode-hook #'consult-preview-at-point-mode)) 669 (add-hook 'embark-collect-mode-hook #'consult-preview-at-point-mode))
665 670
671(setup (:straight epithet)
672 (dolist (hook '(Info-selection-hook
673 eww-after-render-hook
674 help-mode-hook
675 occur-mode-hook))
676 (add-hook hook #'epithet-rename-buffer)))
677
666(setup (:straight eros) 678(setup (:straight eros)
667 (:hook-into emacs-lisp-mode 679 (:hook-into emacs-lisp-mode
668 lisp-interaction-mode)) 680 lisp-interaction-mode))
diff --git a/lisp/+emacs.el b/lisp/+emacs.el index 39b064c..792da40 100644 --- a/lisp/+emacs.el +++ b/lisp/+emacs.el
@@ -63,6 +63,7 @@ Do this only if the buffer is not visiting a file."
63 frame-resize-pixelwise t 63 frame-resize-pixelwise t
64 global-auto-revert-non-file-buffers t 64 global-auto-revert-non-file-buffers t
65 global-mark-ring-max 100 65 global-mark-ring-max 100
66 hscroll-margin 1
66 hscroll-step 1 67 hscroll-step 1
67 imenu-auto-rescan t 68 imenu-auto-rescan t
68 indent-tabs-mode nil 69 indent-tabs-mode nil
@@ -83,6 +84,7 @@ Do this only if the buffer is not visiting a file."
83 'face 'minibuffer-prompt) 84 'face 'minibuffer-prompt)
84 mode-require-final-newline 'visit-save 85 mode-require-final-newline 'visit-save
85 mouse-drag-copy-region t 86 mouse-drag-copy-region t
87 mouse-wheel-progressive-speed nil
86 mouse-yank-at-point t 88 mouse-yank-at-point t
87 native-comp-async-report-warnings-errors 'silent 89 native-comp-async-report-warnings-errors 'silent
88 read-answer-short t 90 read-answer-short t
@@ -95,8 +97,11 @@ Do this only if the buffer is not visiting a file."
95 regexp-search-ring-max 200 97 regexp-search-ring-max 200
96 save-interprogram-paste-before-kill t 98 save-interprogram-paste-before-kill t
97 scroll-conservatively 101 99 scroll-conservatively 101
100 scroll-down-aggressively 0.01
101 scroll-margin 1
98 scroll-preserve-screen-position 1 102 scroll-preserve-screen-position 1
99 scroll-step 1 103 scroll-step 1
104 scroll-up-aggressively 0.01
100 search-ring-max 200 105 search-ring-max 200
101 search-ring-max 200 106 search-ring-max 200
102 sentence-end-double-space t 107 sentence-end-double-space t
@@ -212,7 +217,7 @@ kill without asking."
212 (and (not arg))) 217 (and (not arg)))
213 (when (yes-or-no-p "Sure you want to quit? ") 218 (when (yes-or-no-p "Sure you want to quit? ")
214 (save-buffers-kill-emacs)) 219 (save-buffers-kill-emacs))
215 (server-save-buffers-kill-terminal nil))) 220 (delete-frame nil :force)))
216 221
217;; ... and advice 222;; ... and advice
218 223