leoliu / repeatable.el Goto Github PK

Thanks for repeatable.el, I'm just starting to play with it.

I wonder, is there an easy way to extend it ("easily") so that it can be applied to all functions with a keymap? For example, if my keymap is bound to C-x C-g and I have keybindings such as C-n and C-p, I'd like to be able to do C-x C-g C-n C-n C-p. Using the following code, I can do either the C-n or the C-p repeating, but not swap between them:

(require 'repeatable)
(define-prefix-command 'my-magit-map)
(global-set-key (kbd "C-x C-g") 'my-magit-map)
(define-key my-magit-map (kbd "C-g") 'magit-status)
(define-key my-magit-map (kbd "C-n") (make-command-repeatable 'git-gutter:next-hunk))
(define-key my-magit-map (kbd "C-p") (make-command-repeatable 'git-gutter:previous-hunk))
(define-key my-magit-map (kbd "t") 'git-gutter:toggle)

Perhaps something like this stackoverflow answer is a good starting point. I'm not strong in elisp, so I'm not 100% if there is a better generic way to handle this, perhaps to provide a function that in-place adjusts a keymap.

Thoughts?

I found your package via EmacsWiki:Repeatble, where it points here as well as to Martin Blais' same-named file. It appears that yours is much more recently updated, for example taking into account the change from set-temporary-overlay-map to set-transient-map. Are there any other connections between the apps?

To reproduce:

1. emacs -q
2. (make-command-repeatable 'paredit-forward-down)
3. M-x paredit-mode (so that it is now loaded)
4. C-h f paredit-forward-down RET

It is bound to C-M-d.

(paredit-forward-down &rest ARGS)

Move forward down into a list.
With a positive argument, move forward down that many levels.
With a negative argument, move backward down that many levels.

This is a repeatable command.

(fn &optional ARGUMENT)

C-M-d

The issue is paredit-annotate-functions-with-examples seems to be called after repeatable-after-load-hook.