From f313a8c61d9dd9b6d17744e3c62a42810dca4f81 Mon Sep 17 00:00:00 2001 From: David Morgan Date: Thu, 8 Dec 2022 16:45:17 +0000 Subject: Add avy-copy-as-kill functions --- .emacs.d/lisp/init-navigation.el | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) (limited to '.emacs.d') diff --git a/.emacs.d/lisp/init-navigation.el b/.emacs.d/lisp/init-navigation.el index 0e0492d..c3b23f1 100644 --- a/.emacs.d/lisp/init-navigation.el +++ b/.emacs.d/lisp/init-navigation.el @@ -14,9 +14,23 @@ (cdr (ring-ref avy-ring 0)))) t) (add-to-list 'avy-dispatch-alist '(111 . avy-action-embark)) + (defun avy-copy-as-kill () + (interactive) + (avy-goto-char-timer) + (let ((beg (point))) + (avy-goto-char-timer) + (copy-region-as-kill beg (point)))) + (defun avy-kill-in-line () + (interactive) + (avy-goto-char-timer) + (let ((beg (point))) + (call-interactively 'avy-goto-char-in-line) + (copy-region-as-kill beg (point)))) :bind ("C-'" . avy-goto-char-timer) - ("C-;" . avy-goto-char-in-line)) + ("C-;" . avy-goto-char-in-line) + ("C-c C-'" . avy-copy-as-kill) + ("C-c C-;" . avy-copy-as-kill-in-line)) (use-package smartscan :config -- cgit 1.4.1-2-gfad0