From: Dan Boger Date: Fri, 17 Apr 2009 23:03:27 +0000 (-0700) Subject: r612 - 2.2.2beta, Add tab-completion for twitter_unfriend X-Git-Url: https://git.sommitrealweird.co.uk/twirssi-net-twitter-lite.git/commitdiff_plain/318479f01f223aa72d8c3ab48622521c15bb8364?ds=inline r612 - 2.2.2beta, Add tab-completion for twitter_unfriend --- diff --git a/twirssi.pl b/twirssi.pl index 6e01018..e10396c 100644 --- a/twirssi.pl +++ b/twirssi.pl @@ -10,8 +10,8 @@ $Data::Dumper::Indent = 1; use vars qw($VERSION %IRSSI); -$VERSION = "2.2.1"; -my ($REV) = '$Rev: 611 $' =~ /(\d+)/; +$VERSION = "2.2.2beta"; +my ($REV) = '$Rev: 612 $' =~ /(\d+)/; %IRSSI = ( authors => 'Dan Boger', contact => 'zigdon@gmail.com', @@ -20,7 +20,7 @@ my ($REV) = '$Rev: 611 $' =~ /(\d+)/; . 'Can optionally set your bitlbee /away message to same', license => 'GNU GPL v2', url => 'http://twirssi.com', - changed => '$Date: 2009-04-10 23:47:19 -0700 (Fri, 10 Apr 2009) $', + changed => '$Date: 2009-04-17 16:02:53 -0700 (Fri, 17 Apr 2009) $', ); my $window; @@ -1310,6 +1310,13 @@ sub sig_complete { keys %{ $id_map{__indexes} }; } + if ( $linestart =~ /^\/twitter_unfriend\s*$/ ) + { # /twitter_unfriend gets a nick + $word =~ s/^@//; + push @$complist, grep /^\Q$word/i, + sort { $nicks{$b} <=> $nicks{$a} } keys %nicks; + } + # /tweet, /tweet_as, /dm, /dm_as - complete @nicks (and nicks as the first # arg to dm) if ( $linestart =~ /^\/(?:tweet|dm)/ ) {