use lib get_info 'xchatdir';
use Xchat::XPI;
use Xchat::XPI::Events qw<filter>;
+use Xchat::XPI::Utils qw<gui>;
our $VERSION = '0.04';
my $ph;
-sub guihl {
- command 'GUI FLASH';
- command 'GUI COLOR 3';
-}
-
-sub guiclear {
- command 'GUI COLOR 0';
-}
-
-hook_print 'Private Message to Dialog', sub { guihl; return EAT_NONE };
+hook_print 'Private Message to Dialog', sub {
+ gui 'highlight';
+ return EAT_NONE;
+};
my %hl = (
'#cpantesters' => [ qw<
filter 'Channel Action' => sub {
my $chan = lc get_info 'channel';
if ($hl{$chan} and $_[1] =~ /$hl{$chan}/) {
- guihl;
+ gui 'highlight';
1;
} else {
0;
filter 'Channel Action Hilight' => sub {
my $chan = lc get_info 'channel';
if ($skip{$chan} and $_[1] =~ /$skip{$chan}/) {
- guiclear;
+ gui 'clear';
1;
} else {
0;