diff options
| -rw-r--r-- | scripts/send_scroll.pl | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/scripts/send_scroll.pl b/scripts/send_scroll.pl new file mode 100644 index 0000000..5ab502c --- /dev/null +++ b/scripts/send_scroll.pl @@ -0,0 +1,25 @@ +use strict; +use warnings; +use Irssi; +use Irssi::TextUI; + +# other variations on the theme: scrolling.pl scrollwarn.pl scrolled_reminder.pl antisboops.pl + +our $VERSION = '0.1'; # f030fec17903eb6 +our %IRSSI = ( + contact => 'Nei @ anti@conference.jabber.teamidiot.de', + url => "http://anti.teamidiot.de/", + name => 'send_scroll', + description => 'Scroll down on enter', + license => 'GNU GPLv2 or later', +); + +Irssi::signal_add('key send_line' => sub { + return unless -1 == index Irssi::parse_special('$K'), Irssi::parse_special('$[1]L'); + my $win = Irssi::active_win; + my $view = $win->view; + unless ($view->{bottom}) { + Irssi::signal_stop; + $win->command('scrollback end'); + } +}); |