From: Andreas Gerler <baron@bundesbrandschatzamt.de>
Date: Sun, 4 Sep 2022 14:07:46 +0000 (+0200)
Subject: mp-split-below mp-split-right
X-Git-Url: http://git.bundesbrandschatzamt.de/?a=commitdiff_plain;h=e58686f6af2671058561709c8a05f385c003bdf8;p=emacsconfig.git

mp-split-below mp-split-right

Signed-off-by: Andreas Gerler <baron@bundesbrandschatzamt.de>
---

diff --git a/bba.org b/bba.org
index 0484102e..072c2c99 100644
--- a/bba.org
+++ b/bba.org
@@ -3626,6 +3626,24 @@ Right from [[https://gist.github.com/etherald/dcdcf579751c75a2c796][gisthub]]:
     (set-window-buffer (second (window-list)) buffer2))
 #+END_SRC
 
+https://www.masteringemacs.org/article/demystifying-emacs-window-manager
+
+#+begin_src emacs-lisp
+  (defun mp-split-below (arg)
+    "Split window below from the parent or from root with ARG."
+    (interactive "P")
+    (split-window (if arg (frame-root-window)
+                    (window-parent (selected-window)))
+                  nil 'below nil))
+
+  (defun mp-split-right (arg)
+    "Split window below from the parent or from root with ARG."
+    (interactive "P")
+    (split-window (if arg (frame-root-window)
+                    (window-parent (selected-window)))
+                  nil 'right nil))
+#+end_src
+
 * [[https://github.com/dotemacs/ipcalc.el][ipcalc]]
 #+BEGIN_SRC emacs-lisp
       (require 'ipcalc)