#!/usr/bin/perl -w
# less activity magic

#<scriptinfo>
use vars qw($VERSION %IRSSI);

use Irssi 20020120;
$VERSION = "0.2";
%IRSSI = (
	authors => "Rodney Dawes",
	contact => "dobey@gnome.org",
	name => "Only show high level activity changes",
	description => "Ignores low level activity status",
	license => "Public Domain",
	url => "http://wayofthemonkey.com/lessact.pl",
	changed => "Fri Jan 02 14:20:00 EST 2009",
);
#</scriptinfo>

sub window_activity() {
    my ($item, $oldstatus) = @_;

    my $level = $item->{data_level};

    return if ($level < $oldstatus);

    Irssi::signal_emit("window dehilight", $item) if ($level < 2)
}

Irssi::signal_add_first("window activity", \&window_activity);