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:
c8399f9
)
r520 - Sort /reply tab-completions by last tweet time
author
Dan Boger
<zigdon@irc.peeron.com>
Sat, 7 Mar 2009 21:32:09 +0000
(13:32 -0800)
committer
Dan Boger
<zigdon@irc.peeron.com>
Sat, 7 Mar 2009 21:32:09 +0000
(13:32 -0800)
twirssi.pl
patch
|
blob
|
history
diff --git
a/twirssi.pl
b/twirssi.pl
index 8d5b813bd2a1689a44d7610ea4c103c679cb0d0a..5783d33c7528c5d24ebf0e1e46182ab72dd7f345 100644
(file)
--- a/
twirssi.pl
+++ b/
twirssi.pl
@@
-12,7
+12,7
@@
$Data::Dumper::Indent = 1;
use vars qw($VERSION %IRSSI);
$VERSION = "2.1.2beta";
use vars qw($VERSION %IRSSI);
$VERSION = "2.1.2beta";
-my ($REV) = '$Rev: 5
19
$' =~ /(\d+)/;
+my ($REV) = '$Rev: 5
20
$' =~ /(\d+)/;
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
@@
-21,7
+21,7
@@
my ($REV) = '$Rev: 519 $' =~ /(\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-03-07 13:3
0:43
-0800 (Sat, 07 Mar 2009) $',
+ changed => '$Date: 2009-03-07 13:3
1:54
-0800 (Sat, 07 Mar 2009) $',
);
my $window;
);
my $window;
@@
-1145,8
+1145,10
@@
sub sig_complete {
)
{ # /twitter_reply gets a nick:num
$word =~ s/^@//;
)
{ # /twitter_reply gets a nick:num
$word =~ s/^@//;
- @$complist = map { "$_:$id_map{__indexes}{$_}" } grep /^\Q$word/i,
- sort keys %{ $id_map{__indexes} };
+ @$complist = map { "$_:$id_map{__indexes}{$_}" }
+ sort {$nicks{$b} <=> $nicks{$a}}
+ grep /^\Q$word/i,
+ 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