mirror of
https://github.com/irssi/irssi.git
synced 2024-06-09 06:20:45 +00:00
Add script for /scrollback search
git-svn-id: file:///var/www/svn.irssi.org/SVN/irssi/trunk@4899 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Wouter Coekaerts
coekie
parent
877c64a08c
commit
ee6133f324
142
scripts/sb_search.pl
Normal file
142
scripts/sb_search.pl
Normal file
|
|
@ -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');
|
||||
Loading…
Reference in New Issue
Block a user