/run scriptassist
/script install perlalias

/alias nocolorize set colorize_nicks_ignore_list $colorize_nicks_ignore_list

/perlalias refreshbans use Irssi; my $ch = Irssi::active_server->channel_find($_[0]) || do { print CLIENTERROR "no such channel"; return } ; $ch->banlist_remove($_->{ban}, $_->{setby}) for $ch->bans ; $ch->{server}->redirect_event("mode b", 1, $ch->{name}, -1, "chanquery abort", {"event 367", "chanquery ban", "event 368", "chanquery ban end", "","chanquery abort"}) ; $ch->{server}->send_raw(sprintf "MODE %s b", $ch->{name})

/alias awl_hide ^set awl_hide_data 3; ^alias awl_hideshow awl_show
/alias awl_show ^set awl_hide_data 0; ^alias awl_hideshow awl_hide
/awl_show


/bind meta-= command ^toggle hideshow_hide
/bind meta-& command awl_hideshow
/bind meta-a command ack 
/bind meta-v command trackbar 



/perlalias unact2 Irssi::signal_emit "window dehilight" => $_ for grep { $_->{data_level} && $_->{data_level} <= $_[0] } Irssi::windows
/unact2 2


/perlalias alllastlog my $c; Irssi::signal_add("print text" => sub { $_[1] = "$c $_[1]"; &Irssi::signal_continue }); my $t = Irssi::parse_special('$scrollback_format') eq 'ON'; Irssi::command('^toggle scrollback_format') if $t; for my $w (Irssi::windows) { $c="\cD4/$w->{refnum}\cD\xff/:\cD3/".$w->get_active_name; Irssi::command(qq{lastlog - -window $w->{refnum} $_}) } Irssi::command('^toggle scrollback_format') if $t

/perlalias sprungecmd use LWP::UserAgent; my @a; my $capture = sub { push @a, $_[2]; Irssi::signal_stop }; Irssi::signal_add("print text" => $capture); Irssi::active_win->command($_); Irssi::signal_remove("print text" => $capture); Irssi::active_win->print(LWP::UserAgent->new->post("http://sprunge.us", {"sprunge" => join"\n", @a })->content=~s/\n/ /gr)

/perlalias listwinanditems print join " ", map { "\cD4/$_->{refnum}:(\cD3/".((join"\cD6/,\cD3/",map$_->{name},$_->items)||$_->get_active_name)."\cD4/)"}sort{$a->{refnum}<=>$b->{refnum}}Irssi::windows

/alias swait script exec -perm Irssi::timeout_add_once(q{$0}*100,sub{$$_[0]->command(q{$1-}),Irssi::command("^script unload ".+(__PACKAGE__=~/.*::(.*?)$$/)[0])},Irssi::active_win)


/alias unstickall foreach window eval ^window stick $$winref off
/perlalias sticksome Irssi::command(qq{^window stick $_ on}) for ( @_ )

/perlalias closeempty for (Irssi::windows) {  $_->command("window close")  unless $_->items or $_->{name}  }