diff options
| author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-15 20:19:02 +0000 |
|---|---|---|
| committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-15 20:19:02 +0000 |
| commit | 03929dac2a29664878d2c971648a4fe1fb698462 (patch) | |
| tree | 02c5e2b3e006234aa29545f7a93a1ce01b291a8b /scripts/guts.pl | |
| parent | Initial commit. (diff) | |
| download | irssi-scripts-74dedaab1f75de511e9ded8f64dcf9a4c7d2946f.tar.xz irssi-scripts-74dedaab1f75de511e9ded8f64dcf9a4c7d2946f.zip | |
Adding upstream version 20231031.upstream/20231031upstream
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'scripts/guts.pl')
| -rw-r--r-- | scripts/guts.pl | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/scripts/guts.pl b/scripts/guts.pl new file mode 100644 index 0000000..a1288c0 --- /dev/null +++ b/scripts/guts.pl @@ -0,0 +1,21 @@ +use strict; +use vars qw($VERSION %IRSSI); + +use Irssi qw(signal_add_last settings_add_bool settings_add_str + settings_get_bool settings_get_str); +$VERSION = '1.00'; +%IRSSI = ( + authors => 'Juerd', + contact => 'juerd@juerd.nl', + name => 'German Uppercased Tab Stuff', + description => 'Adds the uppercased version of the tab completes', + license => 'Public Domain', + url => 'http://juerd.nl/irssi/', + changed => 'Sat May 18 21:40 CET 2002', +); + +signal_add_last 'complete word' => sub { + my ($complist, $window, $word, $linestart, $want_space) = @_; + push @$complist, ucfirst $word; +} + |