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

statiegeld: better prompt hijacking

Browse source
This commit is contained in:
Juerd Waalboer 2023-01-19 03:04:16 +01:00
parent 2bbaf20366
commit a2fd94241a
1 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
plugins/statiegeld
View file

@ -101,15 +101,19 @@ sub hook_added_entry ($class, $cart, $entry, @) {
}
}
# Override main revbank prompt
sub hook_prompt { # ($class, $cart, $prompt), but via @_ for mutable alias
$S or return;
my $statiegeld_prompt = "\x01\e[33;1m\x02+>\x01\e[0m\x02"; # yellow "+>"
my $m = "Scan products for deposit return.";
# The message is prepended to the prompt, so it is printed after
# clear-screen (^L).
# ignore----------end ignore-----end
# yellow----------------reset
my $statiegeld_prompt = "\x01\e[33;1m\x02$m\n+>\x01\e[0m\x02";
# Actual text: ^^^^^^
if ($_[2] eq "" or $_[2] eq $statiegeld_prompt) {
# Assumption: only the main prompt will have fewer than 3 \w characters
print "\e[33;1mScan products for deposit return.\e[0m\n" if not $_[1]->size;
}
$_[2] =~ s/^$/$statiegeld_prompt/;
}