Skip to content

twtopic: 2.00 update -- Add dynamic statusbar resizing to window width, foreground colouring, minor optimizations. #907

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
Erwin-Iosef wants to merge 1 commit into
base: master
Choose a base branch
from
Open

twtopic: 2.00 update -- Add dynamic statusbar resizing to window width, foreground colouring, minor optimizations. #907

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
177 changes: 97 additions & 80 deletions scripts/twtopic.pl
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -4,117 +4,134 @@
use Irssi::Irc;
use Irssi::TextUI;

$VERSION = '1.02';
$VERSION = '2.00';
%IRSSI = (
authors => 'John Engelbrecht',
contact => 'jengelbr@yahoo.com',
authors => 'John Engelbrecht - original script, dynamic resizing logic by Armin Jenewein, additional modifications by Erwin Iosef',
contact => 'a@m2m.pm, erwiniosef@gmail.com, jengelbr@yahoo.com',
name => 'twtopic.pl',
description => 'Animated Topic bar.',
description => 'Animated Topic bar with dynamic resizing to window width.',
sbitems => 'twtopic',
license => 'Public Domain',
changed => '2018-09-08',
changed => '2026-06-16',
url => 'http://irssi.darktalker.net'."\n",
);

my $instrut =
".--------------------------------------------------.\n".
"| 1.) shell> mkdir ~/.irssi/scripts |\n".
"| 2.) shell> cp twtopic.pl ~/.irssi/scripts/ |\n".
"| 3.) shell> mkdir ~/.irssi/scripts/autorun |\n".
"| 4.) shell> ln -s ~/.irssi/scripts/twtopic.pl \\ |\n".
"| ~/.irssi/scripts/autorun/twtopic.pl |\n".
"| 5.) /sbar topic remove topic |\n".
"| 6.) /sbar topic remove topic_empty |\n".
"| 7.) /sbar topic add -after topicbarstart |\n".
"| -priority 100 -alignment left twtopic |\n".
"| 9.) /toggle twtopic_instruct and last /save |\n".
"|--------------------------------------------------|\n".
"| Options: Default: |\n".
"| /set twtopic_refresh <speed> 150 |\n".
"| /set twtopic_size <size> 20 |\n".
"| /toggle twtopic_instruct |Startup instructions |\n".
"\`--------------------------------------------------'";

my $timeout=0;
my $start_pos=0;
my $flipflop=0;
my @mirc_color_arr = ("\0031","\0035","\0033","\0037","\0032","\0036","\00310","\0030","\00314","\0034","\0039","\0038","\00312","\00313","\00311","\00315","\017");
".---------------------------------------------------------.\n".
"| 1.) shell> mkdir ~/.irssi/scripts |\n".
"| 2.) shell> cp twtopic.pl ~/.irssi/scripts/ |\n".
"| 3.) shell> mkdir ~/.irssi/scripts/autorun |\n".
"| 4.) shell> ln -s ~/.irssi/scripts/twtopic.pl \\ |\n".
"| ~/.irssi/scripts/autorun/twtopic.pl |\n".
"| 5.) /sbar topic remove topic |\n".
"| 6.) /sbar topic remove topic_empty |\n".
"| 7.) /sbar topic add -after topicbarstart |\n".
"| -priority 100 -alignment left twtopic |\n".
"| 9.) /save |\n".
"|---------------------------------------------------------|\n".
"| Options: Default: |\n".
"| /set twtopic_refresh <speed> 150 |\n".
"| /format twtopic_fgcolor <%%color> |Statusbar text color |\n".
"| (See formats.txt in docs for colors) |\n".
"| (For bg, change statusbar bg color in .theme file) |\n".
"| /twtopic_instruct |Print startup instructions |\n".
"\`---------------------------------------------------------'";

my $timeout;
my $start_pos;
my $size;
my $color;
my $topicscrollsize;
my $topic;
my @mirc_color_arr = ("\0031","\0035","\0033","\0037","\0032","\0036","\00310","\0030","\00314","\0034","\0039","\0038","\00312","\00313","\00311","\00315","\017");

# Setup timer
sub setup {
my $time = Irssi::settings_get_int('twtopic_refresh');
Irssi::timeout_remove($timeout) if ($timeout != 0);
Comment thread
Erwin-Iosef marked this conversation as resolved.

if ($time < 10 ) {
if ($time < 10) {
print "Warning: 'twtopic_refresh' must be >= 10";
$time=150;
Irssi::settings_set_int('twtopic_refresh',$time);
}
$timeout = Irssi::timeout_add($time, 'reload' , undef);
}

sub show {
my ($item, $get_size_only) = @_;
my $text = get();
$text="[".$text."]";
$item->default_handler($get_size_only,$text, undef, 1);

# Status bar show handler
sub show {
my ($item, $get_size_only) = @_;
$topic = get_topic($item);
$color = Irssi::current_theme->get_format(__PACKAGE__, 'twtopic_fgcolor');
#Add '[,]' to both ends of topic string if you want '[ topic ]', ie($color\[$topic\]%n)
$topic = " $color$topic%n";
Comment thread
Erwin-Iosef marked this conversation as resolved.
$item->default_handler($get_size_only,$topic, undef, 1);
}

sub get_topic {
my $topic = "";
my $name = Irssi::active_win()->{active}->{name};
my $type = Irssi::active_win()->{active}->{type};
$name = "Status" if($name eq "");
if($name eq "Status") { return "Irssi website: http://www.irssi.org, Irssi IRC channel: #irssi @ irc://irc.freenode:6667, twtopic has been written by Tech Wizard"; }
if($type eq "QUERY") {
my $text = "You are now talking too...... ".$name;
return $text;
}
my $channel = Irssi::Irc::Server->channel_find($name);
$topic = $channel->{topic};
foreach (@mirc_color_arr) { $topic =~ s/$_//g; }
return $topic;
my $win = Irssi::active_win();
# get the width of the full active window, not $item->{window}
$size = Irssi::active_win()->{width} - 2;
my $active = $win->{active};
unless($active) {
$topic="(status)";
$start_pos=$size/2+4;
}
# $start_pos formula: (size/2 + (length($topic) + 2)/2 - 1, adjust values if needed)

# handle CHANNEL windows
if ($active->{type} eq "CHANNEL") {
# use active server
my $server = Irssi::active_server();
unless($server){
$topic="[no server]";
$start_pos=$size/2+5.5;
}

$topic = ($server->channel_find($active->{name}))->{topic};

# remove mIRC color codes
$topic =~ s/(\003\d{1,2}|\002|\001)//g;
if($topic eq "") {
$topic = "[No Topic]";
$start_pos=$size/2+5;
}
else {
$topicscrollsize=length($topic) + $size;
scrolltopic($start_pos,$topicscrollsize);
}
}

# handle QUERY windows
elsif ($active->{type} eq "QUERY") {
$topic="You are now talking to ..... ".$active->{name};
$start_pos=$size/2 + (31+length($active->{name}))/2 - 1;
}

showtopic($start_pos,$size,$topic);
}

sub get {
my $str=get_topic();
$str =~ s/(\00313)+//;
$str =~ s/(\002)+//;
$str =~ s/(\001)+//;
my $extra_str= " ";
my $size = Irssi::settings_get_int('twtopic_size');
if($str eq "") {
my $str = "=-=-=-=-= No Topic=-=-=-=-=-=-=-";
}
my @str_arr = split //, $str;
my $total = $#str_arr;
$str=substr($extra_str,0,$size).$str.$extra_str;
my $text = substr($str,$start_pos,$size);
if($start_pos > $total+$size) {
$start_pos=0;
}
if(!$flipflop) {
$flipflop=1;
return $text;
}
$start_pos++;
$flipflop=0;
return $text;
sub showtopic {
$topic=(" " x $size) . $topic; # extra padding for scrolling
return substr($topic, $start_pos, $size);
}

sub reload {
Irssi::statusbar_items_redraw('twtopic');
sub scrolltopic {
if ($start_pos > $topicscrollsize) { $start_pos = 0; }
return $start_pos+=0.5;
}

# Redraw status bar
sub reload { Irssi::statusbar_items_redraw('twtopic'); }

sub print_instrut { print $instrut; }

# Register status bar item
Irssi::statusbar_item_register('twtopic', '$0', 'show');
Irssi::signal_add('setup changed', 'setup');
Irssi::settings_add_int('tech_addon', 'twtopic_refresh', 150);
Irssi::settings_add_bool('tech_addon', 'twtopic_instruct', 1);
Irssi::settings_add_int('tech_addon', 'twtopic_size',20);
Irssi::theme_register(['twtopic_fgcolor' => '%W']);

setup();

if(Irssi::settings_get_bool('twtopic_instruct')) {
print $instrut;
}

Irssi::command_bind('twtopic_instruct','print_instrut');