projects
/
twirssi-net-twitter-lite.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
24bd606
)
r612 - 2.2.2beta, Add tab-completion for twitter_unfriend
author
Dan Boger
<zigdon@irc.peeron.com>
Fri, 17 Apr 2009 23:03:27 +0000
(16:03 -0700)
committer
Dan Boger
<zigdon@irc.peeron.com>
Fri, 17 Apr 2009 23:03:27 +0000
(16:03 -0700)
twirssi.pl
patch
|
blob
|
history
diff --git
a/twirssi.pl
b/twirssi.pl
index 6e0101818dc252c0f27a6c09f5084d85e9735635..e10396cce4e53313d751150dde2a69aa638f17f0 100644
(file)
--- a/
twirssi.pl
+++ b/
twirssi.pl
@@
-10,8
+10,8
@@
$Data::Dumper::Indent = 1;
use vars qw($VERSION %IRSSI);
use vars qw($VERSION %IRSSI);
-$VERSION = "2.2.
1
";
-my ($REV) = '$Rev: 61
1
$' =~ /(\d+)/;
+$VERSION = "2.2.
2beta
";
+my ($REV) = '$Rev: 61
2
$' =~ /(\d+)/;
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
%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',
. 'Can optionally set your bitlbee /away message to same',
license => 'GNU GPL v2',
url => 'http://twirssi.com',
- changed => '$Date: 2009-04-1
0 23:47:19 -0700 (Fri, 10
Apr 2009) $',
+ changed => '$Date: 2009-04-1
7 16:02:53 -0700 (Fri, 17
Apr 2009) $',
);
my $window;
);
my $window;
@@
-1310,6
+1310,13
@@
sub sig_complete {
keys %{ $id_map{__indexes} };
}
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)/ ) {
# /tweet, /tweet_as, /dm, /dm_as - complete @nicks (and nicks as the first
# arg to dm)
if ( $linestart =~ /^\/(?:tweet|dm)/ ) {