channel_switcher_user_count.pl

# Author: culb ( A.K.A nightfrog )
# Add the number of users in a channel next to the channel name

use strict;
use warnings;
use Xchat qw( :all );


register(
    'Number of users',
    0x1,
    'Add the number of users to the channel switcher'
);


hook_print( "You Join", \&you_join );


hook_timer( 3000,
    sub
    {
        my $context = get_info 'context';

        for my $list ( get_list 'channels' )
        {
            if ( $list->{type} == 2 )
            {
                set_context $list->{context};
                command( 'SETTAB ' . $list->{users} . ' ' . $list->{channel} );
            }
        }

        set_context $context;
        return KEEP;
    }
);


sub you_join
{
    my $number;
    $number++ for get_list 'users';
    command( 'SETTAB ' . $number . ' ' . get_info 'channel' ) if $number;
}