Irssi script: display /WHO and /WHOIS reply in current channel window.

current_window_whois.pl

sub level {
    Irssi::window_find_name("(status)")->command("^window level $_[0]crap");
}

# https://www.alien.net.au/irc/irc2numerics.html

# /WHOIS
Irssi::signal_add_first("event 311", sub { level("-") } );
Irssi::signal_add_last("event 369", sub { level("+") } );
Irssi::signal_add_last("event 318", sub { level("+") } );

# /WHO
Irssi::signal_add_first("event 354", sub { level("-") } );
Irssi::signal_add_first("event 352", sub { level("-") } );
Irssi::signal_add_last("event 315", sub { level("+") } );