bitlair/revbank
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Place cursor at start of rejected input instead of end

Browse source 
The cursor was placed after the rejected input, both to indicate where
the mistake was, and to make it easy to <backspace> it out. But since
"retry" is only used when there are trailing words, that means the
cursor would be placed on the space between the mistake and the trailing
input. By putting it at the first character of the rejected input, it
is less visually ambiguous. The user can now use <delete> instead of
<backspace>.
This commit is contained in:
Juerd Waalboer 2023-07-12 22:02:59 +02:00
parent 0202ab38ac
commit 459e5619a7
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
revbank
View file

@ -82,11 +82,11 @@ sub prompt($prompt, $plugins, $completions) {
});
if ($retry) {
my $preset = join " ", @retry[0 .. $#retry - 1];
my $cursor = length $preset;
$preset .= " " . join " ", @{ $retry[-1] };
$readline->insert_text($preset);
$readline->Attribs->{point} = $cursor;
my $trailing = "@{ pop @retry }";
my $rejected = pop @retry;
my $accepted = "@retry";
$readline->insert_text("$accepted $rejected $trailing");
$readline->Attribs->{point} = 1 + length $accepted;
@retry = ();
$retry = 0;
}