From: Ailin Nemui <redacted>
Date: Thu, 22 Oct 2020 14:20:48 +0000 (+0200)
Subject: add sbmove script
X-Git-Url: http://git.99rst.org/?a=commitdiff_plain;h=2a4d8257ec31ead9e59ffd016aad0fd3f5557f43;p=irssi-scripts.irssi.org.git

add sbmove script
---

diff --git a/scripts/sbmove.pl b/scripts/sbmove.pl
new file mode 100644
index 0000000..766fb6f
--- /dev/null
+++ b/scripts/sbmove.pl
@@ -0,0 +1,118 @@
+use strict;
+use warnings;
+use Irssi;
+use Irssi::TextUI;
+
+our $VERSION = '0.1'; # de90d37dafaf9ed
+our %IRSSI = (
+    authors     => 'Nei',
+    contact     => 'Nei @ anti@conference.jabber.teamidiot.de',
+    url         => "http://anti.teamidiot.de/",
+    name        => 'sbmove alpha',
+    description => 'move matching lines from scrollback',
+    license     => 'GPLv2 or later',
+);
+
+sub cmd_help {
+    my ($args) = @_;
+    if ($args =~ /^scrollback *$/i) {
+	print CLIENTCRAP <<HELP
+
+SCROLLBACK MOVE [-window <refnum>] [-level <level>] [-regexp] [-case] [-word] [<pattern>]
+
+    MOVE: Move the scrollback of matching text.
+
+    -regexp:    The given text pattern is a regular expression.
+    -case:      Performs a case-sensitive matching.
+    -word:      The text must match full words.
+HELP
+
+    }
+}
+
+
+sub cmd_sb_move {
+    my ($args, $server, $witem) = @_;
+    my ($options, $pattern) = Irssi::command_parse_options('scrollback move', $args);
+
+    if (!defined $options->{window}) {
+	print CLIENTERROR "No source window";
+	return;
+    }
+
+    my $win = Irssi::window_find_refnum($options->{window});
+    if (!$win) {
+	print CLIENTERROR "Window not found";
+	return;
+    }
+
+    my $level;
+    if (defined $options->{level}) {
+	$level = $options->{level};
+	$level =~ y/,/ /;
+	$level = Irssi::combine_level(0, $level);
+    }
+    else {
+	return unless length $pattern;
+	$level = MSGLEVEL_ALL;
+    }
+
+    my $regex;
+    if (length $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/; 1 }
+		or do {
+		    print CLIENTERROR "Pattern did not compile: " . do { $@ =~ /(.*) at / && $1 };
+		    return;
+		};
+	}
+	else {
+	    $regex = qr/$flags$b\Q$pattern\E$b/;
+	}
+    }
+
+    my $ow = Irssi::active_win;
+
+    my $view = $win->view;
+    my $line = $view->get_lines;
+    my $need_redraw;
+    my $bottom = $view->{bottom};
+
+    $ow->command('^window scroll off');
+    my $oline = $ow->view->get_lines;
+    my $obottom = $ow->view->{bottom};
+
+    while ($line) {
+	my $line_level = $line->{info}{level};
+	my $time = $line->{info}{time};
+	my $next = $line->next;
+	if ($line_level & $level && $line->get_text(0) =~ $regex) {
+	    my $text = $line->get_text(1);
+	    $view->remove_line($line);
+	    $need_redraw = 1;
+	    my $onext = $oline && $oline->{info}{time} < $time ? $oline->next : undef;
+	    while ($onext && $onext->{info}{time} < $time) {
+		$oline = $onext;
+		$onext = $oline->next;
+	    }
+	    $ow->gui_printtext_after($oline, $line_level, "$text\n", $time);
+	    $oline = $ow->last_line_insert;
+	}
+	$line = $next;
+    }
+
+    if ($need_redraw) {
+	$win->command('^scrollback end') if $bottom && !$win->view->{bottom};
+	$ow->command('^scrollback end') if $obottom && !$ow->view->{bottom};
+	$ow->view->redraw;
+	$view->redraw;
+    }
+    $ow->command('^window scroll default');
+}
+
+Irssi::command_bind        'scrollback move' => 'cmd_sb_move';
+Irssi::command_set_options 'scrollback move' => '-window -level regexp case word';
+Irssi::command_bind_last 'help' => 'cmd_help';