use strict;

use Irssi;

use Irssi::TextUI;

use vars qw($VERSION %IRSSI);

$VERSION = '1.0.2';

%IRSSI = (

authors => 'Trevor "tee" Slocum',

contact => '[email protected]',

name => 'AutoClearInput',

description => 'Automatically clears pending input when you are away.',

license => 'GPLv3',

url => 'https://github.com/tslocum/irssi-scripts',

changed => '2019-02-11'

);

my ($autoclear_tag, $autoclear_last_input);

sub autoclear_key_pressed {

return if (Irssi::settings_get_int("autoclear_sec") <= 0);

if (defined($autoclear_tag)) {

Irssi::timeout_remove($autoclear_tag);

}

$autoclear_tag = Irssi::timeout_add_once(Irssi::settings_get_int("autoclear_sec") * 1000, "autoclear_timeout", "");

}

sub autoclear_timeout {

return if (Irssi::settings_get_int("autoclear_sec") <= 0);

my $autoclear_current_input = Irssi::parse_special('$L');

$autoclear_current_input =~ s/^\s+//;

$autoclear_current_input =~ s/\s+$//;

if ($autoclear_current_input ne "") {

$autoclear_last_input = Irssi::parse_special('$L');

}

Irssi::gui_input_set("");

}

sub autoclear_retrieve {

if (defined($autoclear_last_input)) {

Irssi::timeout_add_once(50, "autoclear_retrieve_workaround", "");

} else {

Irssi::print($IRSSI{name} . ': No input has been cleared yet.');

}

}

sub autoclear_retrieve_workaround {

return if (!defined($autoclear_last_input));

Irssi::gui_input_set($autoclear_last_input);

Irssi::gui_input_set_pos(length($autoclear_last_input));

}

Irssi::settings_add_int("misc", "autoclear_sec", 30);

Irssi::signal_add_last("gui key pressed", "autoclear_key_pressed");

Irssi::command_bind("autocleared", "autoclear_retrieve");

Irssi::command_bind("cleared", "autoclear_retrieve");

print $IRSSI{name} . ': v' . $VERSION . ' loaded. Pending input ' .

(Irssi::settings_get_int("autoclear_sec") > 0

? ('will be cleared after %9' . Irssi::settings_get_int("autoclear_sec") . ' seconds%9 of idling.')

: 'clearing is currently %9disabled%9.');

print $IRSSI{name} . ': Configure this delay with: /SET autoclear_sec <seconds> [0 to disable]';

print $IRSSI{name} . ': Retrieve the last cleared line of input with: /CLEARED';