1 files changed, 79 insertions, 0 deletions
diff --git a/scripts/chansort.pl b/scripts/chansort.pl
new file mode 100644
index 0000000..7f85237
--- /dev/null
+++ b/scripts/chansort.pl
@@ -0,0 +1,79 @@
+#
+# Copyright (C) 2004-2021 by Peder Stray <peder.stray@gmail.com>
+#
+
+use strict;
+use Irssi;
+use Irssi::Irc;
+
+use vars qw{$VERSION %IRSSI};
+($VERSION) = '$Revision: 1.5.1 $' =~ / (\d+(\.\d+)+) /;
+%IRSSI = (
+	  name        => 'chansort',
+	  authors     => 'Peder Stray',
+	  contact     => 'peder.stray@gmail.com',
+	  url         => 'https://github.com/pstray/irssi-chansort',
+	  license     => 'GPL',
+	  description => 'Sort all channel and query windows',
+	 );
+
+sub sig_sort_trigger {
+    return unless Irssi::settings_get_bool('chansort_autosort');
+    cmd_chansort();
+}
+
+# Usage: /CHANSORT
+sub cmd_chansort {
+    my(@windows);
+    my($minwin);
+
+    my $netonly = Irssi::settings_get_bool('chansort_netonly');
+
+    for my $win (Irssi::windows()) {
+	my $act = $win->{active};
+	my $key;
+
+	my $id = sprintf "%05d", $win->{refnum};
+
+	if ($act->{type} eq 'CHANNEL') {
+	    $key = "C".$act->{server}{tag}.' '.($netonly ? $id : substr($act->{visible_name}, 1));
+	}
+	elsif ($act->{type} eq 'QUERY') {
+	    $key = "Q".$act->{server}{tag}.' '.($netonly ? $id : $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++;
+    }
+}
+
+Irssi::command_bind('chansort', 'cmd_chansort');
+
+Irssi::settings_add_bool('chansort', 'chansort_autosort', 0);
+Irssi::settings_add_bool('chansort', 'chansort_netonly', 0);
+
+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');