diff options
author | Tom Feist <shabble@cowu.be> | 2010-07-31 03:45:29 +0000 |
---|---|---|
committer | Tom Feist <shabble@cowu.be> | 2010-07-31 03:45:29 +0000 |
commit | c252c3084bd5dabc1c02a4abec79b8be9189692d (patch) | |
tree | 2057b3d691a3d6eb134fe31433e2b2e8ce400c40 /feature-tests | |
parent | working? verion of scrolled reminder (diff) | |
download | irssi-scripts-c252c3084bd5dabc1c02a4abec79b8be9189692d.tar.gz irssi-scripts-c252c3084bd5dabc1c02a4abec79b8be9189692d.zip |
initial add of mirc_colour_popup.pl
Diffstat (limited to 'feature-tests')
-rw-r--r-- | feature-tests/sbar_test.pl | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/feature-tests/sbar_test.pl b/feature-tests/sbar_test.pl new file mode 100644 index 0000000..6523842 --- /dev/null +++ b/feature-tests/sbar_test.pl @@ -0,0 +1,31 @@ + +use strict; +use warnings; + +use Irssi; +use Irssi::TextUI; # for sbar_items_redraw + + +sub foo_sb { + my ($sb_item, $get_size_only) = @_; + + # my $prompt = Irssi::parse_special('$L'); + # my $cmdchars = Irssi::parse_special('$K'); + + # my $sb = ''; + + # if ($prompt =~ /^(.)ws (.+)$/i && index($cmdchars,$1) != -1) { + # my $arg = $2; + # my $wins = find_wins($arg); + + # foreach my $win (@$wins) { + # $sb .= $win->{text} . ' '; + # } + # $sb =~ s/ $//; + # } + my $sb = '%gmoo%n'; + print "Getsize: $get_size_only"; + $sb_item->default_handler($get_size_only, "{sb $sb}", '', 0); +} + +Irssi::statusbar_item_register ('foo_bar', 0, 'foo_sb'); |