html/guts.pl

   1 use strict;
   2 use vars qw($VERSION %IRSSI);
   3 
   4 use Irssi qw(signal_add_last settings_add_bool settings_add_str
   5                              settings_get_bool settings_get_str);
   6 $VERSION = '1.00';
   7 %IRSSI = (
   8     authors     => 'Juerd',
   9     contact     => 'juerd@juerd.nl',
  10     name        => 'German Uppercased Tab Stuff',
  11     description => 'Adds the uppercased version of the tab completes',
  12     license     => 'Public Domain',
  13     url         => 'http://juerd.nl/irssi/',
  14     changed     => 'Sat May 18 21:40 CET 2002',
  15 );
  16 
  17 signal_add_last 'complete word' => sub {
  18     my ($complist, $window, $word, $linestart, $want_space) = @_;
  19     push @$complist, ucfirst $word;
  20 }
  21