Add all non-nei scripts from nei's website

Some are mostly nei or nei variants, but not originally authored by nei

If any of the authors doesn't want to have these in scripts.irssi.org,
complain and we'll remove it.

1 files changed, 83 insertions, 0 deletions

diff --git a/scripts/hlscroll.pl b/scripts/hlscroll.pl
new file mode 100644
index 0000000..47a4066
--- /dev/null
+++ b/scripts/hlscroll.pl
@@ -0,0 +1,83 @@
+use strict;
+use Irssi qw(command_bind MSGLEVEL_HILIGHT);
+use vars qw($VERSION %IRSSI);
+
+# Recommended key bindings: alt+pgup, alt+pgdown:
+#   /bind meta2-5;3~ /scrollback hlprev
+#   /bind meta2-6;3~ /scrollback hlnext
+
+$VERSION = '0.02';
+%IRSSI = (
+    authors     => 'Juerd, Eevee',
+    contact	=> '#####@juerd.nl',
+    name	=> 'Scroll to hilights',
+    description	=> 'Scrolls to previous or next highlight',
+    license	=> 'Public Domain',
+    url		=> 'http://juerd.nl/site.plp/irssi',
+    changed	=> 'Fri Apr 13 05:48 CEST 2012',
+    inspiration => '@eevee on Twitter: "i really want irssi keybindings that will scroll to the next/previous line containing a highlight. why does this not exist"',
+);
+
+sub _hlscroll{
+    my ($direction, $data, $server, $witem) = @_;
+    $witem or return;
+    my $window = $witem->window or return;
+
+    my $view = $window->view;
+    my $line = $view->{buffer}->{cur_line};
+    my $delta = $direction eq 'prev' ? -1 : 1;
+
+    my $linesleft = $view->{ypos} - $view->{height} + 1;
+    my $scrollby = 0;  # how many display lines to scroll to the next highlight
+
+    # find the line currently at the bottom of the screen
+    while (1) {
+        my $line_height = $view->get_line_cache($line)->{count};
+
+        if ($linesleft < $line_height) {
+            # found it!
+            if ($direction eq 'prev') {
+                # skip however much of $line is on the screen
+                $scrollby = $linesleft - $line_height;
+            }
+            else {
+                # skip however much of $line is off the screen
+                $scrollby = $linesleft;
+            }
+
+            last;
+        }
+
+        $linesleft -= $line_height;
+
+        last if not $line->prev;
+        $line = $line->prev;
+    }
+
+    while ($line->$direction) {
+        $line = $line->$direction;
+        my $line_height = $view->get_line_cache($line)->{count};
+
+        if ($line->{info}{level} & MSGLEVEL_HILIGHT) {
+            # this algorithm scrolls to the "border" between lines -- if
+            # scrolling down, add in the line's entire height so it's entirely
+            # visible
+            if ($direction eq 'next') {
+                $scrollby += $delta * $line_height;
+            }
+
+            $view->scroll($scrollby);
+            return;
+        }
+
+        $scrollby += $delta * $line_height;
+    }
+
+    if ($direction eq 'next' and not $line->next) {
+        # scroll all the way to the bottom, after the last highlight
+        $view->scroll_line($line);
+    }
+};
+
+command_bind 'scrollback hlprev' => sub { _hlscroll('prev', @_) };
+command_bind 'scrollback hlnext' => sub { _hlscroll('next', @_) };