From 8e4d03f44d7467a7d54c0aa47086ddea3a73b859 Mon Sep 17 00:00:00 2001
From: Case Duckworth <acdw@acdw.net>
Date: Thu, 30 Dec 2021 23:07:58 -0600
Subject: [PATCH] More stuff

---
 init.el        | 24 ++++++++++++++++++------
 lisp/+emacs.el |  7 ++++++-
 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 @@
            calendar-latitude _location-latitude
            calendar-longitude _location-longitude))
 
+(setup compile
+  (:option compilation-always-kill t
+           compilation-ask-about-save nil
+           compilation-scroll-output t))
+
 (setup cus-edit
   ;; I don't use Custom to actually /make/ any customizations, but it's handy to
   ;; (A) see what options are available and (B) persist some changes across
@@ -398,13 +403,13 @@
   (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-file
              cape-dabbrev
-             cape-file))
-    (add-to-list 'completion-at-point-functions fn)))
+             cape-keyword
+             cape-abbrev
+             cape-ispell
+             ;;cape-dict))
+    (add-to-list 'completion-at-point-functions fn :append)))))
 
 (setup (:straight (capf-autosuggest
                    :host nil
@@ -663,6 +668,13 @@ See also `crux-reopen-as-root-mode'."
   (:load-after consult embark)
   (add-hook 'embark-collect-mode-hook #'consult-preview-at-point-mode))
 
+(setup (:straight epithet)
+  (dolist (hook '(Info-selection-hook
+                  eww-after-render-hook
+                  help-mode-hook
+                  occur-mode-hook))
+    (add-hook hook #'epithet-rename-buffer)))
+
 (setup (:straight eros)
   (:hook-into emacs-lisp-mode
               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."
  frame-resize-pixelwise t
  global-auto-revert-non-file-buffers t
  global-mark-ring-max 100
+ hscroll-margin 1
  hscroll-step 1
  imenu-auto-rescan t
  indent-tabs-mode nil
@@ -83,6 +84,7 @@ Do this only if the buffer is not visiting a file."
 				                    'face 'minibuffer-prompt)
  mode-require-final-newline 'visit-save
  mouse-drag-copy-region t
+ mouse-wheel-progressive-speed nil
  mouse-yank-at-point t
  native-comp-async-report-warnings-errors 'silent
  read-answer-short t
@@ -95,8 +97,11 @@ Do this only if the buffer is not visiting a file."
  regexp-search-ring-max 200
  save-interprogram-paste-before-kill t
  scroll-conservatively 101
+ scroll-down-aggressively 0.01
+ scroll-margin 1
  scroll-preserve-screen-position 1
  scroll-step 1
+ scroll-up-aggressively 0.01
  search-ring-max 200
  search-ring-max 200
  sentence-end-double-space t
@@ -212,7 +217,7 @@ kill without asking."
            (and (not arg)))
       (when (yes-or-no-p "Sure you want to quit? ")
         (save-buffers-kill-emacs))
-    (server-save-buffers-kill-terminal nil)))
+    (delete-frame nil :force)))
 
 ;; ... and advice