[irssi-scripts.git] / nohilight.pl

use Irssi;
use vars qw($VERSION %IRSSI);

$VERSION = "0.1";
%IRSSI = (
	authors		=> "Paul Traylor",
	name		=> "nohilight",
	description	=> "Do not hilight messages from a list of users",
	license		=> 'MIT',
	url			=> 'http://github.com/kfdm/irssi-nohilight',
	contact		=> 'http://github.com/kfdm/irssi-nohilight/issues'
);

sub remove_hilight {
	my ($dest, $text, $stripped) = @_;
	if ($dest->{level} & MSGLEVEL_HILIGHT) {
		my @nicks = map(quotemeta, split(/[, ]/, Irssi::settings_get_str('nohilight_nicks')));
		foreach my $nick (@nicks) {
			if ($stripped =~ /<.?$nick>/) {
				my $window = $dest->{window};
				$text =~ s/%/%%/g;
				$window->print($text, MSGLEVEL_PUBLIC);
				Irssi::signal_stop();
				return;
			}
		}
	}
}

Irssi::signal_add_first('print text', 'remove_hilight');
Irssi::settings_add_str($IRSSI{'name'}, 'nohilight_nicks', '');
Irssi::print('%G>>%n '.$IRSSI{name}.' '.$VERSION.' loaded');
Commit	Line	Data
3f24f7e4	1	use Irssi;
	2	use vars qw($VERSION %IRSSI);
	3
	4	$VERSION = "0.1";
	5	%IRSSI = (
	6	authors => "Paul Traylor",
	7	name => "nohilight",
	8	description => "Do not hilight messages from a list of users",
	9	license => 'MIT',
	10	url => 'http://github.com/kfdm/irssi-nohilight',
	11	contact => 'http://github.com/kfdm/irssi-nohilight/issues'
	12	);
	13
	14	sub remove_hilight {
	15	my ($dest, $text, $stripped) = @_;
	16	if ($dest->{level} & MSGLEVEL_HILIGHT) {
	17	my @nicks = map(quotemeta, split(/[, ]/, Irssi::settings_get_str('nohilight_nicks')));
	18	foreach my $nick (@nicks) {
	19	if ($stripped =~ /<.?$nick>/) {
	20	my $window = $dest->{window};
	21	$text =~ s/%/%%/g;
	22	$window->print($text, MSGLEVEL_PUBLIC);
	23	Irssi::signal_stop();
	24	return;
	25	}
	26	}
	27	}
	28	}
	29
	30	Irssi::signal_add_first('print text', 'remove_hilight');
	31	Irssi::settings_add_str($IRSSI{'name'}, 'nohilight_nicks', '');
	32	Irssi::print('%G>>%n '.$IRSSI{name}.' '.$VERSION.' loaded');