Changeset dc8f6e0

Timestamp:

Dec 28, 2009, 12:03:29 AM (15 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

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

Children:

54b4a87

Parents:

e6cec01

git-author:

Nelson Elhage <nelhage@mit.edu> (12/24/09 16:47:37)

git-committer:

Nelson Elhage <nelhage@mit.edu> (12/28/09 00:03:29)

Message:

Complete several commands that accept a filename.

File:

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

perl/lib/BarnOwl/Complete/Client.pm

@@ -6 +6 @@
 package BarnOwl::Complete::Client;
 
-use BarnOwl::Completion::Util qw(complete_flags);
+use BarnOwl::Completion::Util qw(complete_flags complete_file);
 use BarnOwl::Complete::Filter qw(complete_filter_name complete_filter_expr);
 
@@ -189 +189 @@
 }
 
+sub complete_one_file_arg {
+    my $ctx = shift;
+    return unless $ctx->word == 1;
+    return complete_file($ctx->words->[1]);
+}
+
 BarnOwl::Completion::register_completer(help    => \&complete_help);
 BarnOwl::Completion::register_completer(filter  => \&complete_filter);
@@ -203 +209 @@
 BarnOwl::Completion::register_completer(print   => \&complete_print);
 
+BarnOwl::Completion::register_completer(source      => \&complete_one_file_arg);
+BarnOwl::Completion::register_completer('load-subs' => \&complete_one_file_arg);
+BarnOwl::Completion::register_completer(loadsubs    => \&complete_one_file_arg);
+BarnOwl::Completion::register_completer(loadloginsubs    => \&complete_one_file_arg);
+BarnOwl::Completion::register_completer(dump        => \&complete_one_file_arg);
+
 1;