1 files changed, 103 insertions, 0 deletions
diff --git a/scripts/chansort.pl b/scripts/chansort.pl
new file mode 100644
index 0000000..814d041
--- /dev/null
+++ b/scripts/chansort.pl
@@ -0,0 +1,103 @@
+#! /usr/bin/perl
+#
+#    $Id: chansort.pl,v 1.4 2004/11/02 22:52:33 peder Exp $
+#
+# Copyright (C) 2004 by Peder Stray <peder@gzip.ninja.no>
+#
+
+use strict;
+use Irssi;
+use Irssi::Irc;
+
+# ======[ Script Header ]===============================================
+
+use vars qw{$VERSION %IRSSI};
+($VERSION) = '$Revision: 1.4 $' =~ / (\d+\.\d+) /;
+%IRSSI = (
+          name        => 'chansort',
+          authors     => 'Peder Stray',
+          contact     => 'peder@ninja.no',
+          url         => 'http://ninja.no/irssi/chansort.pl',
+          license     => 'GPL',
+          description => 'Sort all channel and query windows',
+         );
+
+# ======[ Hooks ]=======================================================
+
+# --------[ sig_sort_trigger ]------------------------------------------
+
+sub sig_sort_trigger {
+    return unless Irssi::settings_get_bool('chansort_autosort');
+    cmd_chansort();
+}
+
+# ======[ Commands ]====================================================
+
+# --------[ CHANSORT ]--------------------------------------------------
+
+# Usage: /CHANSORT
+sub cmd_chansort {
+    my(@windows);
+    my($minwin);
+
+    for my $win (Irssi::windows()) {
+	my $act = $win->{active};
+	my $key;
+
+	if ($act->{type} eq 'CHANNEL') {
+	    $key = "C".$act->{server}{tag}.' '.substr($act->{visible_name}, 1);
+	}
+	elsif ($act->{type} eq 'QUERY') {
+	    $key = "Q".$act->{server}{tag}.' '.$act->{visible_name};
+	}
+	else {
+	    next;
+	}
+	if (!defined($minwin) || $minwin > $win->{refnum}) {
+	    $minwin = $win->{refnum};
+	}
+	push @windows, [ lc $key, $win ];
+
+    }
+
+    for (sort {$a->[0] cmp $b->[0]} @windows) {
+	my($key,$win) = @$_;
+	my($act) = $win->{active};
+    
+#	printf("win[%d->%d]: t[%s] [%s] [%s] {%s}\n", 
+#	       $win->{refnum},
+#	       $minwin,
+#	       $act->{type},
+#	       $act->{visible_name},
+#	       $act->{server}{tag},
+#	       $key,
+#	      );
+
+	$win->command("window move $minwin");
+	$minwin++;
+    }
+}
+
+# ======[ Setup ]=======================================================
+
+# --------[ Register commands ]-----------------------------------------
+
+Irssi::command_bind('chansort', 'cmd_chansort');
+
+# --------[ Register settings ]-----------------------------------------
+
+Irssi::settings_add_bool('chansort', 'chansort_autosort', 0);
+
+# --------[ Register signals ]------------------------------------------
+
+Irssi::signal_add_last('window item name changed', 'sig_sort_trigger');
+Irssi::signal_add_last('channel created', 'sig_sort_trigger');
+Irssi::signal_add_last('query created', 'sig_sort_trigger');
+
+# ======[ END ]=========================================================
+
+# Local Variables:
+# header-initial-hide: t
+# mode: header-minor
+# end:
+