From 1dedc6df5d1b5ca9a9c9ccaae65ed4dd884ff979 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Fri, 2 Apr 2021 14:42:15 -0500
Subject: Advise split-window- functions to prompt for a buffer

---
 init.el | 21 ++++++++++++++++++++-
 1 file changed, 20 insertions(+), 1 deletion(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index 2a814c4..b42df7e 100644
--- a/init.el
+++ b/init.el
@@ -186,6 +186,16 @@
            (append recentf-exclude) acdw/dir)
   (recentf-mode +1))
 
+;;;; Windows
+(winner-mode +1)
+
+;; Advise window-splitting to select a buffer afterword
+(dolist (func '(split-window-below
+                split-window-right
+                split-window-vertically
+                split-window-horizontally))
+  (advice-add func :after #'switch-to-buffer))
+
 ;;;; Minibuffer
 (setc minibuffer-prompt-properties
       '(read-only t cursor-intangible t face minibuffer-prompt)
@@ -391,6 +401,7 @@
       attempt-stack-overflow-recovery nil
       attempt-orderly-shutdown-on-fatal-signal nil
       find-function-C-source-directory
+      window-resize-pixelwise t
       (pcase acdw/system
         (:work (expand-file-name (concat "~/src/emacs-"
                                          emacs-version
@@ -583,7 +594,15 @@ if ripgrep is installed, otherwise `consult-grep'."
            xref-show-definitions-function #'consult-xref)
 
   ;; Projects
-  (:option consult-project-root-function #'vc-root-dir))
+  (:option consult-project-root-function #'vc-root-dir)
+
+  ;; Advise `split-window-'* functions
+  (dolist (func '(split-window-below
+                  split-window-right
+                  split-window-vertically
+                  split-window-horizontally))
+    (advice-remove func #'switch-to-buffer)
+    (advice-add func :after #'consult-buffer)))
 
 ;;;;; Marginalia
 (setup (:straight marginalia)
-- 
cgit 1.4.1-21-gabe81