commit 85819b0bedefd802c4d69a1a7fb7d777b496131d parent cefa6f9a6a0e66579a1ded8cac92bb3981b2fb20 Author: Vincent Demeester <vincent@sbr.pm> Date: Thu, 11 Jul 2024 11:08:32 +0200 tools/emacs: start exploring avy 🙃 Signed-off-by: Vincent Demeester <vincent@sbr.pm> Diffstat:
| M | tools/emacs/config/config-navigating.el | | | 12 | +++++++++++- |
1 file changed, 11 insertions(+), 1 deletion(-)
diff --git a/tools/emacs/config/config-navigating.el b/tools/emacs/config/config-navigating.el @@ -57,7 +57,17 @@ ("C-c j b" . avy-pop-mark) ("C-c j t" . avy-goto-char-timer) ("C-c j l" . avy-goto-line) - (:map isearch-mode-map ("C-j" . avy-isearch)))) + (:map isearch-mode-map ("C-j" . avy-isearch))) + :config + (defun avy-action-helpful (pt) + (save-excursion + (goto-char pt) + (helpful-at-point)) + (select-window + (cdr (ring-ref avy-ring 0))) + t) + + (setf (alist-get ?H avy-dispatch-alist) 'avy-action-helpful)) (use-package casual-avy :unless noninteractive