exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Prefer splitting windows horizontally first

Browse Source 
This is what I am accustomed to, and this is what modern wide screens are good for :)
This commit is contained in:
Daniel Borchmann 2025-06-01 16:09:59 +02:00
parent 56fd725c55
commit 84545e9db5
No known key found for this signature in database
GPG Key ID: 50EA937BF472ADD1
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
init.el
View File

@ -399,7 +399,21 @@
(add-to-list 'display-buffer-alist (add-to-list 'display-buffer-alist
'("shell\\*" '("shell\\*"
(display-buffer-reuse-window (display-buffer-reuse-window
display-buffer-pop-up-window))))) display-buffer-pop-up-window)))
(define-advice split-window-sensibly (:around
(orig-fun &optional window)
split-horizontally-first)
"We try to split horizontally first, and if this does not work, let
`split-window-sensibly' do the rest. This will result in trying to
split horizontally again, but this extra work should not matter much."
(let ((window (or window (selected-window))))
(or (and (window-splittable-p window t)
;; Split window horizontally.
(with-selected-window window
(split-window-right)))
(funcall orig-fun window))))))
(use-package which-key (use-package which-key
:ensure t :ensure t