Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
78 lines (63 sloc) 2.35 KB
#
# autoclearinput.pl
# Automatically clears pending input when you are away.
#
#
# Settings:
# /SET autoclear_sec <seconds> (0 to disable, 30 by default)
#
# Commands:
# /AUTOCLEARED, /CLEARED Retrieve the last cleared line of input
#
use strict;
use vars qw($VERSION %IRSSI);
$VERSION = '1.0.1';
%IRSSI = (
authors => 'Trevor "tee" Slocum',
contact => 'tslocum@gmail.com',
name => 'AutoClearInput',
description => 'Automatically clears pending input when you are away.',
license => 'GPLv3',
url => 'https://github.com/tslocum/irssi-scripts',
changed => '2014-05-13'
);
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';