my $filter = 0;
my @views = qw(all irc not-irc);

sub view_all_toggle {
    my $cur = BarnOwl::getview();
    if($cur eq $views[$filter]) {
        $filter = ($filter + 1) % (scalar @views);
    }
    BarnOwl::view($views[$filter]);
}

BarnOwl::new_command('toggle-view' => \&view_all_toggle);
BarnOwl::bindkey(recv => V => command => 'toggle-view');