gistfile1.pl

use Irssi;
use Irssi::TextUI;
use strict;

our %IRSSI = (
    authors     => 'Decklin Foster',
    contact     => 'decklin@red-bean.com',
    name        => 'tweetlen',
    description => 'Update length of tweet in statusbar',
    license     => 'ISC',
);

Irssi::statusbar_item_register('tweetlen', undef, 'tweetlen_sb');
Irssi::signal_add_last('gui key pressed', 'key_pressed');

sub key_pressed {
    Irssi::statusbar_items_redraw('tweetlen');
}
 
sub tweetlen_sb {
    my ($item, $size_only) = @_;
    my $chars = 140 - length(Irssi::parse_special("\$L"));

    if ($chars < 10) {
        $chars = "%R$chars%n";
    } elsif ($chars < 20) {
        $chars = "%M$chars%n";
    }
     
    $item->default_handler($size_only, "{sb $chars}", undef, 1);
}