1 package Xchat::VPIT::Highlight;
8 use lib get_info 'xchatdir';
10 use Xchat::XPI::Events qw/filter/;
12 our $VERSION = '0.02';
18 command 'GUI COLOR 3';
22 command 'GUI COLOR 0';
25 hook_print 'Private Message to Dialog', sub { guihl; return EAT_NONE };
28 '#cpantesters' => [ qw/
29 Acme-CPANAuthors-You-re_using
35 Perl-Critic-Policy-Dynamic-NoIndirect
52 my $rx = '(?:' . join('|', @{$hl{$_}}) . ')';
56 filter 'Channel Action' => sub {
57 my $chan = lc get_info 'channel';
58 if ($hl{$chan} and $_[1] =~ /$hl{$chan}/) {
64 } => 'Channel Action Hilight';
73 my $rx = '(?:' . join('|', @{$skip{$_}}) . ')';
77 filter 'Channel Action Hilight' => sub {
78 my $chan = lc get_info 'channel';
79 if ($skip{$chan} and $_[1] =~ /$skip{$chan}/) {
85 } => 'Channel Action';
87 $ph = new Xchat::XPI name => 'Smart highlighting',
89 desc => 'Highlight on private messages',
90 author => 'Vincent Pit (VPIT)',
91 email => 'perl@profvince.com',
92 url => 'http://www.profvince.com';