use strict;

use Irssi;

use Irssi::TextUI;

use vars qw($VERSION %IRSSI);

$VERSION = '1.2';

%IRSSI = (

authors => 'Wouter Coekaerts, Emanuele Giaquinta',

contact => '[email protected], [email protected]',

name => 'sb_search',

description => 'search in your scrollback, scroll to a match',

license => 'GPLv2 or later',

url => 'http://wouter.coekaerts.be/irssi/',

changed => '$LastChangedDate$',

);

sub cmd_help {

my ($args, $server, $witem) = @_;

if ($args =~ /^scrollback( search)? *$/i) {

Irssi::print ( <<SCRIPTHELP_EOF

,MSGLEVEL_CLIENTCRAP);

}

}

my $regex;

my $all;

my $level;

sub cmd_sb_search {

my ($args, $server, $witem) = @_;

### handle options

my ($options, $pattern) = Irssi::command_parse_options('scrollback search', $args);

my $forward = defined(delete $options->{forward});

if (!%$options && !$pattern) {

return if !$regex && !defined $level;

} else {

$all = defined($options->{all});

$level = MSGLEVEL_ALL;

undef $regex;

}

if (defined($options->{level})) {

$level = $options->{level};

$level =~ y/,/ /;

$level = Irssi::combine_level(0, $level);

}

if ($pattern) {

my $flags = defined($options->{case}) ? '' : '(?i)';

my $b = defined($options->{word}) ? '\b' : '';

if (defined($options->{regexp})) {

local $@;

eval {

$regex = qr/$flags$b$pattern$b/;

};

if ($@) {

my ($err) = $@ =~ /^(.*)/;

$err =~ s/\sat .* line \d+\.$//;

print CLIENTERROR $err;

return;

}

} else {

$regex = qr/$flags$b\Q$pattern\E$b/;

}

}

### determine window(s) to search in

my $current_win = ref $witem ? $witem->window() : Irssi::active_win();

my @windows;

if ($all) {

# cycle backward or forwards over all windows starting from current

# for example, searching backward through 5 windows, with window 3 active: search order is 3,2,1,5,4

# if we're searching forward: 3,4,5,1,2

my $order = $forward ? 1 : -1;

@windows = sort {$order * ($a->{refnum} cmp $b->{refnum})} Irssi::windows();

my @before_windows = grep {($_->{refnum} cmp $current_win->{refnum}) == $order} @windows;

my @after_windows = grep {($_->{refnum} cmp $current_win->{refnum}) == -$order} @windows;

@windows = ($current_win, @before_windows, @after_windows);

} else {

@windows = ($current_win);

}

### do the search

foreach my $win (@windows) {

my $view = $win->view;

## determine line to start from

my $line;

if ($all && $win != $current_win) {

if ($forward) { # first line

$line = $view->get_lines;

} else { # last line

$line = $view->{buffer}{cur_line};

}

} elsif ($view->{startline}) { # line after or before first visible line

$line = $forward ? $view->{startline}->next : $view->{startline}->prev;

}

## loop over the lines

while (defined $line) {

my $line_level = $line->{info}{level};

if ($line_level & $level && $line->get_text(0) =~ $regex) {

$view->scroll_line($line);

if ($all) {

Irssi::command('window goto ' . $win->{refnum});

}

return;

}

$line = $forward ? $line->next : $line->prev;

}

}

}

Irssi::command_bind('scrollback search', \&cmd_sb_search);

Irssi::command_bind_last('help', \&cmd_help);

Irssi::command_set_options('scrollback search', '-level regexp case word forward all');