From 29212d123f1d2622332c02ca55b3a81faee1af76 Mon Sep 17 00:00:00 2001 From: Steven Allen Date: Sat, 3 Feb 2024 15:25:57 -0800 Subject: [PATCH] vterm: implement replace Implements evil's "replace" operator ("r") for vterm. --- modes/vterm/evil-collection-vterm.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/modes/vterm/evil-collection-vterm.el b/modes/vterm/evil-collection-vterm.el index bafef53..ccc9edc 100644 --- a/modes/vterm/evil-collection-vterm.el +++ b/modes/vterm/evil-collection-vterm.el @@ -75,6 +75,7 @@ also uses `evil-mode'." (declare-function vterm-cursor-in-command-buffer-p "vterm") (declare-function vterm-beginning-of-line "vterm") +(declare-function vterm-insert "vterm") (evil-define-motion evil-collection-vterm-first-non-blank () "Move the cursor to the first non-blank character @@ -199,6 +200,14 @@ Save in REGISTER or in the kill-ring with YANK-HANDLER." (t (evil-collection-vterm-delete beg line-end type register yank-handler))))) +(evil-define-operator evil-collection-vterm-replace (beg end type register yank-handler) + :motion evil-forward-char + (interactive "") + (let ((replacement (make-string (- end beg) (read-char)))) + (evil-collection-vterm-delete beg end type register yank-handler) + (vterm-insert replacement) + (vterm-goto-char (1- end)))) + (evil-define-operator evil-collection-vterm-change (beg end type register yank-handler) (evil-collection-vterm-delete beg end type register yank-handler) (evil-collection-vterm-insert)) @@ -280,6 +289,7 @@ But don't allow the cursor to move bellow the last prompt line." "i" 'evil-collection-vterm-insert "I" 'evil-collection-vterm-insert-line "u" 'vterm-undo + "r" 'evil-collection-vterm-replace "c" 'evil-collection-vterm-change "C" 'evil-collection-vterm-change-line "s" 'evil-collection-vterm-substitute