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

idle: suspend beeping on text input (cursor move)

Browse source
This commit is contained in:
Juerd Waalboer 2024-11-27 02:48:18 +01:00
parent 5f95076af8
commit 3b6f11f0dd
3 changed files with 20 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lib/RevBank/Prompt.pm
View file

@ -62,6 +62,7 @@ sub reconstruct($word) {
sub prompt($prompt, $completions = [], $default = "", $pos = 0, $cart = undef, $plugins = []) { sub prompt($prompt, $completions = [], $default = "", $pos = 0, $cart = undef, $plugins = []) {
state $readline = Term::ReadLine->new($0); state $readline = Term::ReadLine->new($0);
my $attribs = $readline->Attribs;
if ($prompt) { if ($prompt) {
$prompt =~ s/$/:/ if $prompt !~ /[?>](?:\x01[^\x02]*\x02)?$/; $prompt =~ s/$/:/ if $prompt !~ /[?>](?:\x01[^\x02]*\x02)?$/;
@ -73,7 +74,7 @@ sub prompt($prompt, $completions = [], $default = "", $pos = 0, $cart = undef, $
} }
my @matches; my @matches;
$readline->Attribs->{completion_entry_function} = sub { $attribs->{completion_entry_function} = sub {
my ($word, $state) = @_; my ($word, $state) = @_;
return undef if $word eq ""; return undef if $word eq "";
@matches = grep /^\Q$word\E/i, @$completions if $state == 0; @matches = grep /^\Q$word\E/i, @$completions if $state == 0;
@ -86,7 +87,7 @@ sub prompt($prompt, $completions = [], $default = "", $pos = 0, $cart = undef, $
my $begin = my $time = time; my $begin = my $time = time;
$readline->Attribs->{event_hook} = sub { $attribs->{event_hook} = sub {
if ($::ABORT_HACK) { if ($::ABORT_HACK) {
# Global variable that a signal handling plugin can set. # Global variable that a signal handling plugin can set.
# Do not use, but "return ABORT" instead. # Do not use, but "return ABORT" instead.
@ -94,6 +95,13 @@ sub prompt($prompt, $completions = [], $default = "", $pos = 0, $cart = undef, $
$::ABORT_HACK = 0; $::ABORT_HACK = 0;
main::abort($reason); main::abort($reason);
} }
state $last_pos = 0;
if ($attribs->{point} != $last_pos) {
$begin = time;
$last_pos = $attribs->{point};
}
if (time > $time) { if (time > $time) {
$time = time; $time = time;
call_hooks( call_hooks(
@ -106,8 +114,8 @@ sub prompt($prompt, $completions = [], $default = "", $pos = 0, $cart = undef, $
} }
}; };
$readline->Attribs->{startup_hook} = sub { $attribs->{startup_hook} = sub {
$readline->Attribs->{point} = $pos; $attribs->{point} = $pos;
}; };
$readline->ornaments(0); $readline->ornaments(0);

8
plugins/idle
View file

@ -1,13 +1,19 @@
#!perl #!perl
my $timeout = 10; my $timeout = 10;
my $text_displayed = 0;
sub hook_prompt($class, $cart, $prompt, @) {
$text_displayed = 0;
}
sub hook_prompt_idle($class, $cart, $plugin, $seconds, $readline, @) { sub hook_prompt_idle($class, $cart, $plugin, $seconds, $readline, @) {
return unless $seconds >= $timeout and $cart->size and not $plugin; return unless $seconds >= $timeout and $cart->size and not $plugin;
call_hooks("beep"); call_hooks("beep");
return if $seconds > $timeout; # text only once return if $text_displayed;
$text_displayed = 1;
my $text = $readline->copy_text; my $text = $readline->copy_text;
my $point = $readline->{point}; my $point = $readline->{point};

2
revbank
View file

@ -17,7 +17,7 @@ use RevBank::Messages;
use RevBank::Cart; use RevBank::Cart;
use RevBank::Prompt; use RevBank::Prompt;
our $VERSION = "7.2.1"; our $VERSION = "7.2.2";
our %HELP1 = ( our %HELP1 = (
"abort" => "Abort the current transaction", "abort" => "Abort the current transaction",