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

Hidden feature for buying products via statiegeld terminal

Browse source
This commit is contained in:
Juerd Waalboer 2023-01-30 05:55:31 +01:00
parent 416c722511
commit 10eeabf707
1 changed files with 17 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
plugins/statiegeld
View file

@ -43,9 +43,19 @@ sub hook_deposit_command($class, $prompt, $array, @) {
}; };
} }
sub command ($invocant, $cart, $command, @) { sub command { # args via @_ for mutable alias
my ($invocant, $cart, $command) = @_;
$S or return NEXT; $S or return NEXT;
# Hidden feature: use \ in front of product id to ignore statiegeld plugin.
# Not sure if this will stay; there might be a negative social aspect to
# normalizing grabbing a product and walking away from where one would
# normally pay.
if ($_[2] =~ s/^\\//) {
$cart->{statiegeld_ignore} = 1;
return NEXT;
}
defined &RevBank::Plugin::products::read_products defined &RevBank::Plugin::products::read_products
or die "statiegeld plugin requires products plugin"; or die "statiegeld plugin requires products plugin";
@ -88,6 +98,7 @@ sub command ($invocant, $cart, $command, @) {
sub hook_added_entry ($class, $cart, $entry, @) { sub hook_added_entry ($class, $cart, $entry, @) {
$S or return; $S or return;
$cart->{statiegeld_ignore} and return;
$entry->has_attribute('plugin') or return; $entry->has_attribute('plugin') or return;
if ($entry->attribute('plugin') eq 'market') { if ($entry->attribute('plugin') eq 'market') {
@ -116,7 +127,9 @@ sub hook_prompt { # ($class, $cart, $prompt), but via @_ for mutable alias
$_[2] =~ s/^$/$statiegeld_prompt/; $_[2] =~ s/^$/$statiegeld_prompt/;
} }
sub hook_input($class, $cart, $input, $split_input, @) { sub hook_input { # args via @_ for mutable alias
my ($class, $cart, $input, $split_input) = @_;
$S or return; $S or return;
# Extra newline before new "Scan products for ..." line. # Extra newline before new "Scan products for ..." line.
@ -141,4 +154,6 @@ END
redo OUTER; # this is phenominally vile :) redo OUTER; # this is phenominally vile :)
} }
$_[2] = "help" if $split_input and $input eq "\\help";
} }