-$ph = new Xchat::XPI name => 'Smart highlighting',
- tag => 'HL',
- desc => 'Highlight on private messages',
- author => 'Vincent Pit (VPIT)',
- email => 'perl@profvince.com',
- url => 'http://www.profvince.com';
+my %skip = (
+ '#p5p' => [
+ '(?i:jesse.vincent)',
+ ],
+);
+
+for (keys %skip) {
+ my $rx = '(?:' . join('|', @{$skip{$_}}) . ')';
+ $skip{$_} = qr/$rx/;
+}
+
+filter 'Channel Action Hilight' => sub {
+ my $chan = lc get_info 'channel';
+ if ($skip{$chan} and $_[1] =~ /$skip{$chan}/) {
+ guiclear;
+ 1;
+ } else {
+ 0;
+ }
+} => 'Channel Action';
+
+$ph = Xchat::XPI->new(
+ name => 'Smart highlighting',
+ tag => 'HL',
+ desc => 'Highlight on private messages',
+ author => 'Vincent Pit (VPIT)',
+ email => 'perl@profvince.com',
+ url => 'http://www.profvince.com',
+);