From 3b6f11f0dd3dfa762c87e881e66af84c3e8e6e25 Mon Sep 17 00:00:00 2001
From: Juerd Waalboer <juerd@tnx.nl>
Date: Wed, 27 Nov 2024 02:48:18 +0100
Subject: [PATCH] idle: suspend beeping on text input (cursor move)

---
 lib/RevBank/Prompt.pm | 16 ++++++++++++----
 plugins/idle          |  8 +++++++-
 revbank               |  2 +-
 3 files changed, 20 insertions(+), 6 deletions(-)

diff --git a/lib/RevBank/Prompt.pm b/lib/RevBank/Prompt.pm
index a27be54..fb603a6 100755
--- a/lib/RevBank/Prompt.pm
+++ b/lib/RevBank/Prompt.pm
@@ -62,6 +62,7 @@ sub reconstruct($word) {
 
 sub prompt($prompt, $completions = [], $default = "", $pos = 0, $cart = undef, $plugins = []) {
     state $readline = Term::ReadLine->new($0);
+    my $attribs = $readline->Attribs;
 
     if ($prompt) {
         $prompt =~ s/$/:/ if $prompt !~ /[?>](?:\x01[^\x02]*\x02)?$/;
@@ -73,7 +74,7 @@ sub prompt($prompt, $completions = [], $default = "", $pos = 0, $cart = undef, $
     }
 
     my @matches;
-    $readline->Attribs->{completion_entry_function} = sub {
+    $attribs->{completion_entry_function} = sub {
         my ($word, $state) = @_;
         return undef if $word eq "";
         @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;
 
-    $readline->Attribs->{event_hook} = sub {
+    $attribs->{event_hook} = sub {
         if ($::ABORT_HACK) {
             # Global variable that a signal handling plugin can set.
             # Do not use, but "return ABORT" instead.
@@ -94,6 +95,13 @@ sub prompt($prompt, $completions = [], $default = "", $pos = 0, $cart = undef, $
             $::ABORT_HACK = 0;
             main::abort($reason);
         }
+
+        state $last_pos = 0;
+        if ($attribs->{point} != $last_pos) {
+            $begin = time;
+            $last_pos = $attribs->{point};
+        }
+
         if (time > $time) {
             $time = time;
             call_hooks(
@@ -106,8 +114,8 @@ sub prompt($prompt, $completions = [], $default = "", $pos = 0, $cart = undef, $
         }
     };
 
-    $readline->Attribs->{startup_hook} = sub {
-        $readline->Attribs->{point} = $pos;
+    $attribs->{startup_hook} = sub {
+        $attribs->{point} = $pos;
     };
 
     $readline->ornaments(0);
diff --git a/plugins/idle b/plugins/idle
index d46c79a..0383a14 100644
--- a/plugins/idle
+++ b/plugins/idle
@@ -1,13 +1,19 @@
 #!perl
 
 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, @) {
     return unless $seconds >= $timeout and $cart->size and not $plugin;
 
     call_hooks("beep");
 
-    return if $seconds > $timeout;  # text only once
+    return if $text_displayed;
+    $text_displayed = 1;
 
     my $text = $readline->copy_text;
     my $point = $readline->{point};
diff --git a/revbank b/revbank
index c095ddb..04d6924 100755
--- a/revbank
+++ b/revbank
@@ -17,7 +17,7 @@ use RevBank::Messages;
 use RevBank::Cart;
 use RevBank::Prompt;
 
-our $VERSION = "7.2.1";
+our $VERSION = "7.2.2";
 
 our %HELP1 = (
     "abort" => "Abort the current transaction",