Skip to content

Instantly share code, notes, and snippets.

@eevee
Created April 13, 2012 03:49
Show Gist options
  • Save eevee/2373531 to your computer and use it in GitHub Desktop.
Save eevee/2373531 to your computer and use it in GitHub Desktop.
scroll to next/prev hilighted line in irssi
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 prev
# /bind meta2-6;3~ /scrollback next
$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 prev' => sub { _hlscroll('prev', @_) };
command_bind 'scrollback next' => sub { _hlscroll('next', @_) };
@lenisko
Copy link

lenisko commented Sep 12, 2016

Is there any way to show highlight on console centre not at bottom ?
Great module btw!

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment