* .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 (file)
--- 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)
 
 (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'
 (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'