From: Amin Bandali <bandali@gnu.org>
Date: Thu, 10 Oct 2019 00:43:38 +0000 (-0400)
Subject: emacs: add C-c w s l and C-c w s j convenience bindings
X-Git-Url: https://git.shemshak.org/~bandali/configs/commitdiff_plain/446cb0966984944db778c5fb297b423c4575d235

emacs: add C-c w s l and C-c w s j convenience bindings
---

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 1fa19d4..4cbf091 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -1900,11 +1900,18 @@ This function is intended for use with `ivy-ignore-buffers'."
 
 (use-feature window
   :bind
-  (("C-c w <right>" . split-window-right)
-   ("C-c w <down>"  . split-window-below)
-   ("C-c w s l"     . split-window-right)
-   ("C-c w s j"     . split-window-below)
-   ("C-c w q"       . quit-window))
+  (("C-c w s l" . b/split-window-right)
+   ("C-c w s j" . b/split-window-below)
+   ("C-c w q"   . quit-window))
+  :init
+  (defun b/split-window-right ()
+    (interactive)
+    (split-window-right)
+    (other-window 1))
+  (defun b/split-window-below ()
+    (interactive)
+    (split-window-below)
+    (other-window 1))
   :custom
   (split-width-threshold 150))