X-Git-Url: https://code.delx.au/dotemacs/blobdiff_plain/5c421a7c44357af95dcd1b51c52b1899ec363be5..1e6aea58aa155b613de2008b1489bedc49ab9231:/text-edit/my-window-resize.el

diff --git a/text-edit/my-window-resize.el b/text-edit/my-window-resize.el
new file mode 100644
index 0000000..edbb7fd
--- /dev/null
+++ b/text-edit/my-window-resize.el
@@ -0,0 +1,13 @@
+;;; -*- lexical-binding: t -*-
+
+(defun my/window-resize-mode ()
+  (interactive)
+  (message "Resize window with the arrow keys")
+  (let ((keymap (make-sparse-keymap)))
+    (define-key keymap [up] #'enlarge-window)
+    (define-key keymap [down] #'shrink-window)
+    (define-key keymap [left] #'shrink-window-horizontally)
+    (define-key keymap [right] #'enlarge-window-horizontally)
+    (set-transient-map keymap t)))
+
+(provide 'my-window-resize)