aboutsummaryrefslogtreecommitdiffstats
path: root/il/il.pl
diff options
context:
space:
mode:
Diffstat (limited to 'il/il.pl')
-rw-r--r--il/il.pl135
1 files changed, 135 insertions, 0 deletions
diff --git a/il/il.pl b/il/il.pl
new file mode 100644
index 0000000..31f4941
--- /dev/null
+++ b/il/il.pl
@@ -0,0 +1,135 @@
+#https://github.com/irssi/scripts.irssi.org/blob/master/scripts/il.pl
+#
+# for all who dont like perl:
+# inputlength = "{sb length: $@L}";
+#
+# with leading spaces: (3 spaces in example)
+# inputlength = "{sb $[-!3]@L}";
+#
+# with leading char "-"
+#
+# inputlength = "{sb $[-!3-]@L}";
+#
+# you cant use numbers here. if you want to use the numbers use the
+# perl script
+#
+#
+# thanks to: Wouter Coekaerts <wouter@coekaerts.be> aka coekie
+#
+# add one of these 2 lines to your config in statusbar items section
+#
+# the perl scripts reacts on every keypress and updates the counter.
+# if you dont need/want this the settings are maybe enough for you.
+# with the settings the item is update with a small delay.
+#
+
+use strict;
+use Irssi 20021105;
+use Irssi::TextUI;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = '0.0.6';
+%IRSSI = (
+ authors => 'Marcus Rueckert',
+ contact => 'darix@irssi.org',
+ name => 'inputlength',
+ description => 'adds a statusbar item which show length of the inputline',
+ sbitems => 'inputlength',
+ license => 'BSD License or something more liberal',
+ url => 'http://www.irssi.de./',
+ changed => '2021-01-11'
+);
+
+my $help = << "END";
+%9Name%9
+ $IRSSI{name}
+%9Version%9
+ $VERSION
+%9Description%9
+ $IRSSI{description}
+
+ To activate the inputlength indicator do:
+ /STATUSBAR window add inputlength
+ Statusbar syntax was changed in Irssi 1.2.
+ /STATUSBAR ADDITEM inputlength window
+%9Settings%9
+ /set inputlength_width 0
+ /set inputlength_padding_char
+END
+
+sub beancounter {
+ my ( $sbItem, $get_size_only ) = @_;
+
+ my ( $width, $padChar, $padNum, $length );
+
+ #
+ # getting settings
+ #
+ $width = Irssi::settings_get_int ( 'inputlength_width' );
+ $padChar = Irssi::settings_get_str ( 'inputlength_padding_char' );
+
+ #
+ # only one char allowed
+ #
+ # $padChar =~ s/^(.).*?$/$1/;
+
+ #
+ # do we have to deal wit numbers for padding?
+ #
+ # if ( $padChar =~ m/\d/ ) {
+ # $padNum = $padChar;
+ # $padChar = '-';
+ # };
+
+ #
+ # getting formatted lengh
+ #
+ $length = Irssi::parse_special ( "\$[-!$width]\@L" );
+ # $length = Irssi::parse_special ( "$padChar\@L$padChar" );
+
+ #
+ # did we have a number?
+ #
+ $length =~ s/$padChar/$padNum/g if ( $padNum ne '' );
+
+ $sbItem->default_handler ( $get_size_only, "{sb $padChar $length $padChar}", undef, 1 );
+}
+
+Irssi::statusbar_item_register ( 'inputlength', 0, 'beancounter' );
+#
+# ToDo:
+# - statusbar item register doesnt support function references.
+# so we have to stuck to the string and wait for cras.
+#
+
+Irssi::signal_add_last 'gui key pressed' => sub {
+ Irssi::statusbar_items_redraw ( 'inputlength' );
+};
+
+Irssi::settings_add_int ( 'inputlength', 'inputlength_width', 0 );
+#
+# setting:
+#
+# 0 means it resizes automatically
+# greater means it has at least a size of n chars.
+# it will grow if the space is to space is too small
+#
+
+Irssi::settings_add_str ( 'inputlength', 'inputlength_padding_char', " " );
+#
+# char to pad with
+#
+# you can use any char you like here. :) even numbers should work
+#
+
+sub cmd_help {
+ my ($args, $server, $witem)=@_;
+ $args=~ s/\s+//g;
+ if ($IRSSI{name} eq $args) {
+ Irssi::print($help, MSGLEVEL_CLIENTCRAP);
+ Irssi::signal_stop();
+ }
+}
+
+Irssi::command_bind('help', \&cmd_help);
+Irssi::command_bind($IRSSI{name}, sub { cmd_help($IRSSI{name}); } );