r520 - Sort /reply tab-completions by last tweet time

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: 519 $' =~ /(\d+)/;
+my ($REV) = '$Rev: 520 $' =~ /(\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:30:43 -0800 (Sat, 07 Mar 2009) $',
+    changed => '$Date: 2009-03-07 13:31: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