diff options
Diffstat (limited to 'scripts/sb_search.pl')
| -rw-r--r-- | scripts/sb_search.pl | 142 |
1 files changed, 142 insertions, 0 deletions
diff --git a/scripts/sb_search.pl b/scripts/sb_search.pl new file mode 100644 index 00000000..43fc7b55 --- /dev/null +++ b/scripts/sb_search.pl @@ -0,0 +1,142 @@ +# sb_search.pl - search in your scrollback, scroll to a match +# Do /HELP SCROLLBACK for help + +# Copyright (C) 2008 Wouter Coekaerts <wouter@coekaerts.be>, Emanuele Giaquinta <exg@irssi.org> +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + +use strict; +use Irssi; +use Irssi::TextUI; +use vars qw($VERSION %IRSSI); + +$VERSION = '1.0'; +%IRSSI = ( + authors => 'Wouter Coekaerts, Emanuele Giaquinta', + contact => 'wouter@coekaerts.be, exg@irssi.org', + 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 + +SCROLLBACK SEARCH [-level <level>] [-regexp] [-case] [-word] [-forward] [-all] [<pattern>] + + -level: only search for lines with the given level. see /help levels + -regexp: the pattern is a regular expression + -case: search case sensitive + -word: pattern must match to full words + -forward: search forwards (default is backwards) + -all: search in all windows + <pattern>: text to search for +SCRIPTHELP_EOF + ,MSGLEVEL_CLIENTCRAP); + } +} + + +sub cmd_sb_search ($$$) { + my ($args, $server, $witem) = @_; + + ### handle options + + my ($options, $pattern) = Irssi::command_parse_options('scrollback search', $args); + + my $level; + if (defined($options->{level})) { + $level = $options->{level}; + $level =~ y/,/ /; + $level = Irssi::combine_level(0, $level); + } else { + return if (!$pattern); + $level = MSGLEVEL_ALL; + } + + my $regex; + if ($pattern) { + my $flags = defined($options->{case}) ? '' : '(?i)'; + my $b = defined($options->{word}) ? '\b' : ''; + if (defined($options->{regexp})) { + $regex = qr/$flags$b$pattern$b/; + } else { + $regex = qr/$flags$b\Q$pattern\E$b/; + } + } + + my $forward = defined($options->{forward}); + my $all = defined($options->{all}); + + ### 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->{startline}; + while ($line->next) { + $line = $line->next + } + } + } else { # 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'); |