#! /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:
