Changeset b73bcbb

Timestamp:

Jul 27, 2009, 11:23:57 PM (15 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

82a6e8b

Parents:

0fee298

git-author:

Nelson Elhage <nelhage@mit.edu> (07/27/09 21:17:06)

git-committer:

Nelson Elhage <nelhage@mit.edu> (07/27/09 23:23:57)

Message:

Add hooks for completing command arguments.

File:

• perl/lib/BarnOwl/Completion.pm (modified) (3 diffs)

perl/lib/BarnOwl/Completion.pm

@@ -19 +19 @@
 
 use List::Util qw(max first);
+
+our %completers = ();
 
 sub do_complete {
@@ -62 +64 @@
 }
 
-sub get_completions {
-    my $ctx = shift;
-    if($ctx->word == 0) {
-        return complete_command($ctx->words->[0]);
-    } else {
-        return;
-    }
-}
-
-sub complete_command {
-    my $cmd = shift;
-    return grep {$_ =~ m{^\Q$cmd\E}} @BarnOwl::all_commands;
-}
-
 sub show_completions {
     my @words = @_;
@@ -101 +89 @@
 }
 
+
+sub get_completions {
+    my $ctx = shift;
+    my @words = ();
+    if($ctx->word == 0) {
+        return complete_command($ctx->words->[0]);
+    } else {
+        my $cmd = $ctx->words->[0];
+        my $word = $ctx->words->[$ctx->word];
+        if(exists($completers{$cmd})) {
+            return grep {$_ =~ m{^\Q$word\E}} $completers{$cmd}->($ctx);
+        }
+        return;
+    }
+}
+
+sub complete_command {
+    my $cmd = shift;
+    return grep {$_ =~ m{^\Q$cmd\E}} @BarnOwl::all_commands;
+}
+
+sub register_completer {
+    my $cmd = shift;
+    my $completer = shift;
+    $completers{$cmd} = $completer;
+}
+
+sub load_completers {
+    opendir(my $dh, BarnOwl::get_data_dir() . "/" . "lib/BarnOwl/Complete/") or return;
+    while(my $name = readdir($dh)) {
+        next if $name =~ m{^\.};
+        next unless $name =~ m{[.]pm$};
+        $name =~ s{[.]pm$}{};
+        eval "use BarnOwl::Complete::$name";
+    }
+}
+
+$BarnOwl::Hooks::startup->add("BarnOwl::Completion::load_completers");
+
 1;