#!/usr/bin/perl
use strict;
use Irssi;
use vars qw($VERSION);

$VERSION = "0.1";

# This stupid, why can't I reuse the theme?
Irssi::theme_register([
  'wallvoices', '[%r$0%K(%R$1%K)]%n $2-',
]);


sub cmd_wallvoices {
	my ($data, $server, $witem) = @_;

	if (!$witem || !($witem->{type} eq "CHANNEL")) {
		Irssi::print("Not on active channel");
		return;
	}

	Irssi::Server::command(Irssi::active_server(),
		"QUOTE WALLVOICES ".$witem->{name}." :$data");
	$witem->printformat(MSGLEVEL_NOTICES, 'wallvoices', 'notice', '+'.$witem->{name}, $data);
}

Irssi::command_bind('vn', 'cmd_wallvoices');