Advise split-window- functions to prompt for a buffer

1 files changed, 20 insertions, 1 deletions

@@ -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)