summaryrefslogtreecommitdiffstats
path: root/scripts/chansort.pl
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--scripts/chansort.pl79
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');