code.delx.au - dotemacs/blob - text-edit/my-window-resize.el

   1 ;;; -*- lexical-binding: t -*-
   2
   3 (defun my/window-resize-mode ()
   4   (interactive)
   5   (message "Resize window with the arrow keys")
   6   (let ((keymap (make-sparse-keymap)))
   7     (define-key keymap [up] #'enlarge-window)
   8     (define-key keymap [down] #'shrink-window)
   9     (define-key keymap [left] #'shrink-window-horizontally)
  10     (define-key keymap [right] #'enlarge-window-horizontally)
  11     (set-transient-map keymap t)))
  12
  13 (provide 'my-window-resize)