]>
jfr.im git - irssi-scripts.git/blob - nohilight.pl
2 use vars
qw($VERSION %IRSSI);
6 authors
=> "Paul Traylor",
8 description
=> "Do not hilight messages from a list of users",
10 url
=> 'http://github.com/kfdm/irssi-nohilight',
11 contact
=> 'http://github.com/kfdm/irssi-nohilight/issues'
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
};
22 $window->print($text, MSGLEVEL_PUBLIC
);
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');