From: Brian S. Stephan Date: Fri, 23 Jan 2009 01:02:12 +0000 (-0600) Subject: if the tweet contains the {account}, also print the message at MSGLEVEL_HILIGHT X-Git-Url: https://git.sommitrealweird.co.uk/twirssi-net-twitter-lite.git/commitdiff_plain/2cbdec5357caa3a57ae4fee320a8da2e420d2d4f?ds=inline;hp=--cc if the tweet contains the {account}, also print the message at MSGLEVEL_HILIGHT --- 2cbdec5357caa3a57ae4fee320a8da2e420d2d4f diff --git a/twirssi.pl b/twirssi.pl index e575b07..edb207e 100644 --- a/twirssi.pl +++ b/twirssi.pl @@ -707,6 +707,7 @@ sub monitor_child { while () { chomp; last if /^__friends__/; + my $hilight = 0; my %meta; foreach my $key (qw/id account nick type/) { if (s/^$key:(\S+)\s*//) { @@ -733,12 +734,16 @@ sub monitor_child { $marker = ":$marker"; } + if ( $_ =~ /\@$meta{account}\W/ ) { + $hilight = MSGLEVEL_HILIGHT; + } + if ( $meta{type} eq 'tweet' ) { - push @lines, [MSGLEVEL_PUBLIC, $meta{type}, $account, $meta{nick}, $marker, $_]; + push @lines, [(MSGLEVEL_PUBLIC | $hilight), $meta{type}, $account, $meta{nick}, $marker, $_]; } elsif ( $meta{type} eq 'reply' ) { - push @lines, [MSGLEVEL_PUBLIC, $meta{type}, $account, $meta{nick}, $marker, $_]; + push @lines, [(MSGLEVEL_PUBLIC | $hilight), $meta{type}, $account, $meta{nick}, $marker, $_]; } elsif ( $meta{type} eq 'dm' ) { - push @lines, [MSGLEVEL_MSGS, $meta{type}, $account, $meta{nick}, $_]; + push @lines, [(MSGLEVEL_MSGS | $hilight), $meta{type}, $account, $meta{nick}, $_]; } elsif ( $meta{type} eq 'error' ) { $window->print("ERROR: $_", MSGLEVEL_PUBLIC); } elsif ( $meta{type} eq 'debug' ) {