Just say no to indirect object notation

[perl/scripts/xchat.git] / hl.pl

diff --git a/hl.pl b/hl.pl
index ce53996a0d76f09eee1ff40c8d6b0221dbd2a501..fdaaf5cb89477d755e54fc52d7b37c39b0a3539c 100755 (executable)
--- a/hl.pl
+++ b/hl.pl
@@ -9,7 +9,7 @@ use lib get_info 'xchatdir';
 use Xchat::XPI;
 use Xchat::XPI::Events qw/filter/;
 
-our $VERSION = '0.02';
+our $VERSION = '0.03';
 
 my $ph;
 
@@ -18,6 +18,10 @@ sub guihl {
  command 'GUI COLOR 3';
 }
 
+sub guiclear {
+ command 'GUI COLOR 0';
+}
+
 hook_print 'Private Message to Dialog', sub { guihl; return EAT_NONE };
 
 my %hl = (
@@ -59,12 +63,35 @@ filter 'Channel Action' => sub {
  }
 } => 'Channel Action Hilight';
 
-$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',
+);
  
 1;