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:
6f729e2
)
1.7.6 - r379 - Fix tab complete in /twitter_reply
author
Dan Boger
<zigdon@irc.peeron.com>
Wed, 21 Jan 2009 17:53:41 +0000
(09:53 -0800)
committer
Dan Boger
<zigdon@irc.peeron.com>
Wed, 21 Jan 2009 17:53:41 +0000
(09:53 -0800)
twirssi.pl
patch
|
blob
|
history
diff --git
a/twirssi.pl
b/twirssi.pl
index ad7bf88b8901a4ef4f694ede5560cd40ec6d52f1..03680f400d70c935e2392e375341c94f37402562 100644
(file)
--- a/
twirssi.pl
+++ b/
twirssi.pl
@@
-11,8
+11,8
@@
$Data::Dumper::Indent = 1;
use vars qw($VERSION %IRSSI);
use vars qw($VERSION %IRSSI);
-$VERSION = "1.7.
5
";
-my ($REV) = '$Rev: 37
4
$' =~ /(\d+)/;
+$VERSION = "1.7.
6
";
+my ($REV) = '$Rev: 37
9
$' =~ /(\d+)/;
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
@@
-21,7
+21,7
@@
my ($REV) = '$Rev: 374 $' =~ /(\d+)/;
. 'Can optionally set your bitlbee /away message to same',
license => 'GNU GPL v2',
url => 'http://tinyurl.com/twirssi',
. 'Can optionally set your bitlbee /away message to same',
license => 'GNU GPL v2',
url => 'http://tinyurl.com/twirssi',
- changed => '$Date: 2009-01-
19 23:31:12 -0800 (Mon, 19
Jan 2009) $',
+ changed => '$Date: 2009-01-
21 09:50:42 -0800 (Wed, 21
Jan 2009) $',
);
my $window;
);
my $window;
@@
-883,7
+883,9
@@
sub sig_complete {
and $linestart =~ /^\/reply(?:_as)?\s*$/ )
)
{ # /twitter_reply gets a nick:num
and $linestart =~ /^\/reply(?:_as)?\s*$/ )
)
{ # /twitter_reply gets a nick:num
- @$complist = grep /^\Q$word/i, sort keys %{ $id_map{__indexes} };
+ $word =~ s/^@//;
+ @$complist = map { "$_:$id_map{__indexes}{$_}" } grep /^\Q$word/i,
+ sort keys %{ $id_map{__indexes} };
}
# /tweet, /tweet_as, /dm, /dm_as - complete @nicks (and nicks as the first
}
# /tweet, /tweet_as, /dm, /dm_as - complete @nicks (and nicks as the first