Re: [PATCH] Make `C-x {' and `C-x }' repeatable

[Juri Linkov]

>> I will give it a try, but I feel that functionality should be
>> built-in.
>
> Yes clearly, that is needed before we can consider it to make C-x
> [{}^] redundant.

If the goal is to replace `C-x [{}^]' with one global keybinding,
the currently free and intuitive key prefix for window related commands
would be `C-x w', so that a command to activate window-resizing
key sequence could be bound to `C-x w r'.

Until this is implemented, something like below could help
for experimenting with possible implementations:

(defvar window-resize-keymap
  (let ((map (make-sparse-keymap)))
    ;; Standard keys:
    (define-key map "0" 'delete-window)
    (define-key map "1" 'delete-other-windows)
    (define-key map "2" 'split-window-below)
    (define-key map "3" 'split-window-right)
    (define-key map "o" 'other-window)
    (define-key map "^" 'enlarge-window)
    (define-key map "}" 'enlarge-window-horizontally)
    (define-key map "{" 'shrink-window-horizontally)
    (define-key map "-" 'shrink-window-if-larger-than-buffer)
    (define-key map "+" 'balance-windows)
    ;; Additional keys:
    (define-key map "v"     'shrink-window)
    (define-key map [down]  'shrink-window)
    (define-key map [up]    'enlarge-window)
    (define-key map [left]  'shrink-window-horizontally)
    (define-key map [right] 'enlarge-window-horizontally)
    map)
  "Keymap to resize windows.")

(advice-add 'enlarge-window-horizontally :after (lambda (delta)
            (set-temporary-overlay-map window-resize-keymap)))
(advice-add 'shrink-window-horizontally :after (lambda (delta)
            (set-temporary-overlay-map window-resize-keymap)))
(advice-add 'enlarge-window :after (lambda (delta &optional horizontal)
            (set-temporary-overlay-map window-resize-keymap)))
(advice-add 'shrink-window :after (lambda (delta &optional horizontal)
            (set-temporary-overlay-map window-resize-keymap)))

(defun window-resize-init ()
  (interactive)
  (message "Use window-resizing keys...")
  (set-temporary-overlay-map window-resize-keymap))

(define-key ctl-x-map "wr" 'window-resize-init)