config

commit 528281d8dd4cbdd35c4cb89ba2eebe6b5f2ba533
parent cbf7fd2c82dd7eeaca1fbda3f6e6a40c098ce172
Author: dwrz <dwrz@dwrz.net>
Date:   Sat,  8 Jul 2023 22:51:03 +0000

Add emacs split-window-two-thirds

Diffstat:
M
emacs/init.el
 | 
7
+++++++

1 file changed, 7 insertions(+), 0 deletions(-)
diff --git a/emacs/init.el b/emacs/init.el
@@ -56,6 +56,12 @@
         (switch-to-buffer existing-shell-buffer)
       (shell (generate-new-buffer-name shell-buffer-name)))))
 
+(defun split-window-two-thirds ()
+  "Split the current window into two, with a 2/3 and 1/3 vertical split."
+  (interactive)
+  (select-window (split-window-vertically
+                  (floor (* 0.666 (window-total-height))))))
+
 (defun dwrz-org-capture-at-point ()
   "Insert an org capture template at point."
   (interactive)
@@ -579,6 +585,7 @@
 (global-set-key (kbd "C-h v") 'counsel-describe-variable)
 (global-set-key (kbd "C-r") 'counsel-rg)
 (global-set-key (kbd "C-s") 'swiper)
+(global-set-key (kbd "C-x 9") 'split-window-two-thirds)
 (global-set-key (kbd "C-x C-b") 'ibuffer)
 (global-set-key (kbd "C-x C-f") 'counsel-find-file)
 (global-set-key (kbd "C-x b") 'ivy-switch-buffer)