Re: POLL: make C-x o transient

[Juri Linkov]

>>> Which will make `C-x o` invoke a transient version of `other-window'
>>> like `text-scale-adjust’ does.
>>
>> I think the pattern is clear: `C-x <letter>` are good candidates ;-)
>
> And non-letters too, especially `C-x {`, `C-x }`, `C-x ^`, ...
> need to be repeatable.  I'm using such quite messy blob of code,
> it would be nice if someone would generalize this mess
> without using advice-add.

Maybe something simple like:

#+begin_src emacs-lisp
(put 'other-window 'repeatable-command t)
(put 'enlarge-window 'repeatable-command t)
(put 'enlarge-window-horizontally 'repeatable-command t)
(put 'shrink-window-horizontally 'repeatable-command t)

(add-hook 'post-command-hook 'repeatable-command)

(defun repeatable-command ()
  (when (get this-command 'repeatable-command)
    (let* ((keys (this-single-command-keys))
           (last-key (elt keys (1- (length keys)))))
      (set-transient-map
       (let ((map (make-sparse-keymap)))
         (define-key map (vector last-key) this-command)
         map)))))
#+end_src