#!perl

my $timeout = 10;

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

    my $text = $readline->copy_text;
    my $point = $readline->{point};

    $readline->save_prompt;
    $readline->replace_line("");
    $readline->redisplay;

    my $verb = $cart->sum < 0 ? "pay" : "finish";

    my $help = $cart->entries('refuse_checkout')
        ? "Enter 'abort' to abort."
        : "Enter username to $verb or 'abort' to abort.";
    print "\e[33;4;1mTransaction incomplete.\e[0m $help\n";

    $readline->restore_prompt;
    $readline->replace_line($text);
    $readline->{point} = $point;
    $readline->redisplay;
}