use strict; use vars qw($VERSION %IRSSI); $VERSION = '1.3'; %IRSSI = ( authors => 'Tijmen "timing" Ruizendaal & Wilmer van der Gaast', contact => '[email protected]', name => 'BitlBee_tab_completion', description => 'Intelligent Tab-completion for BitlBee commands.', license => 'GPLv2', url => 'http://the-timing.nl/stuff/irssi-bitlbee', changed => '2009-08-11', ); my $root_nick = 'root'; my $bitlbee_channel = '&bitlbee'; my $bitlbee_server_tag = 'localhost'; my $get_completions = 0; my @commands; Irssi::signal_add_last 'channel sync' => sub { my( $channel ) = @_; if( $channel->{topic} eq "Welcome to the control channel. Type \x02help\x02 for help information." ){ $bitlbee_server_tag = $channel->{server}->{tag}; $bitlbee_channel = $channel->{name}; request_completions(); } }; if (get_channel()) { request_completions(); } sub request_completions { $get_completions = 1; Irssi::server_find_tag($bitlbee_server_tag)->send_raw( 'COMPLETIONS' ); } sub get_channel { my @channels = Irssi::channels(); foreach my $channel(@channels) { if ($channel->{topic} eq "Welcome to the control channel. Type \x02help\x02 for help information.") { $bitlbee_channel = $channel->{name}; $bitlbee_server_tag = $channel->{server}->{tag}; return 1; } } return 0; } sub irc_notice { return unless $get_completions; my( $server, $msg, $from, $address, $target ) = @_; if( $msg =~ s/^COMPLETIONS // ) { $root_nick = $from; if( $msg eq 'OK' ) { @commands = (); } elsif( $msg eq 'END' ) { $get_completions = 0; } @commands = ( @commands, $msg ); Irssi::signal_stop(); } } sub complete_word { my ($complist, $window, $word, $linestart, $want_space) = @_; my $channel = $window->get_active_name(); if ($channel eq $bitlbee_channel or $channel eq $root_nick or $linestart =~ /^\/(msg|query) \Q$root_nick\E */i){ $linestart =~ s/^\/(msg|query) \Q$root_nick\E *//i; $linestart =~ s/^\Q$root_nick\E[:,] *//i; foreach my $command(@commands) { if ($command =~ /^$word/i) { push @$complist, $command; } } } } Irssi::signal_add_last('complete word', 'complete_word'); Irssi::signal_add_first('message irc notice', 'irc_notice');