From: Amin Bandali <bandali@kelar.org>
Date: Sat, 7 May 2022 20:12:27 +0000 (-0400)
Subject: * .emacs.d/init.el: Add some i3-like windmove bindings.
X-Git-Url: https://git.shemshak.org/~bandali/configs/commitdiff_plain/69ad7e369bcbb17c8301a5e26ff6e3300649b98f?ds=inline;pf=~bandali

* .emacs.d/init.el: Add some i3-like windmove bindings.
---

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 8836a1b..9c2f1ff 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -362,6 +362,14 @@ This sets each user option VAR's value to the corresponding VALUE.
 (require 'winner)
 (winner-mode 1)
 
+(run-with-idle-timer 0.1 nil #'require 'windmove)
+(with-eval-after-load 'windmove
+  (csetq windmove-wrap-around t)
+  (global-set-key (kbd "M-H") #'windmove-left)
+  (global-set-key (kbd "M-L") #'windmove-right)
+  (global-set-key (kbd "M-K") #'windmove-up)
+  (global-set-key (kbd "M-J") #'windmove-down))
+
 (with-eval-after-load 'compile
   ;; don't display *compilation* buffer on success.  based on
   ;; https://stackoverflow.com/a/17788551, with changes to use `cl-letf'