From 994c1260a5418bab604c37a7ade6219a15e2d42f Mon Sep 17 00:00:00 2001
From: Ailin Nemui
Date: Mon, 26 Jan 2015 23:46:22 +0100
Subject: Add new script send_scroll.pl

The send_scroll script scrolls the window to the end before permitting
to send new messages. Useful in case you like to forget this.
---
 scripts/send_scroll.pl | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 scripts/send_scroll.pl

(limited to 'scripts')

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');
+    }
+});
-- 
cgit v1.2.3