Implement second-level tab completion for /perlalias and /perlunalias

1 files changed, 28 insertions, 0 deletions

diff --git a/scripts/perlalias.pl b/scripts/perlalias.pl
index bb3b306..c4e4803 100644
--- a/scripts/perlalias.pl
+++ b/scripts/perlalias.pl
@@ -235,6 +235,34 @@ sub sig_setup_reread {
 	close $fd;
 }
 
+sub sig_complete_perlalias {
+	my ($lst, $win, $word, $line, $want_space) = @_;
+	$word//return;
+	$line//return;
+	$lst//return;
+	if ($line ne '') {
+		my $def = $cmds{$line};
+		$def//return;
+		push @$lst, $def->{textcmd};
+		Irssi::signal_stop();
+	}
+	else {
+		push @$lst, (grep /^\Q$word\E/i, keys %cmds);
+		Irssi::signal_stop();
+	}
+}
+
+sub sig_complete_perlunalias {
+	my ($lst, $win, $word, $line, $want_space) = @_;
+	$lst//return;
+	$word//return;
+	push @$lst, (grep /^\Q$word\E/i, keys %cmds);
+}
+
+Irssi::signal_register({"complete command " => [qw(glistptr_char* Irssi::UI::Window string string intptr)]});
+Irssi::signal_add("complete command perlalias" => \&sig_complete_perlalias);
+Irssi::signal_add("complete command perlunalias" => \&sig_complete_perlunalias);
+
 Irssi::signal_add("setup saved" => \&sig_setup_saved);
 Irssi::signal_add("setup reread" => \&sig_setup_reread);