scripts/trivia.pl

use Irssi;
use strict;
use warnings;

our $VERSION = "1.0.1";
our %IRSSI = (
    authors     => 'terminaldweller',
    contact     => 'https://terminaldweller.com',
    name        => 'trivia',
    description => 'lets you add trivial info for a window as a expando',
    license     => 'GPL3 or newer',
    url         => 'https://github.com/irssi/scripts.irssi.org',
);

my %trivia_list = ();
my $trivia = "";

sub window_changed_handler {
    my $window = Irssi::active_win();
    my $server = Irssi::active_server();
    my $window_name = "";
    my $server_tag = "";

    if (exists  $server->{tag}) {
        $server_tag = $server->{tag};
    }
    
    if (exists $window->{active}->{name}) {
        $window_name = $window->{active}->{name};
    }

    my $current_window_item_string = $server_tag."/".$window_name;

    if ($window && $window_name eq "") {
        $trivia = "Irssi";
        return;
    }

    foreach my $key (keys %trivia_list) {
        if ($current_window_item_string =~ m/$key/) {
            $trivia = $trivia_list{$key};
            return;
        }
    }

    $trivia = "IRC";
}

Irssi::expando_create('trivia', sub {
  return $trivia;
}, {});

sub setup_changed {
    %trivia_list = map { my @temp = split(',', $_); $temp[0] => $temp[1] } split(' ', Irssi::settings_get_str('trivia_list'));
}

# Settings
# /set trivia_list server1/#channel,info server2/#channel2,info2
Irssi::settings_add_str('misc','trivia_list','');

Irssi::signal_add('window changed' => 'window_changed_handler');
Irssi::signal_add('setup changed' => 'setup_changed');

setup_changed;