Changes in perl/lib/BarnOwl/Complete/Client.pm [dab89e28:dc8f6e0]

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);
 
@@ -167 +167 @@
 }
 
+sub complete_bindkey {
+    my $ctx = shift;
+    # bindkey KEYMAP KEYSEQ command COMMAND
+    #   0      1       2      3        4
+    if ($ctx->word == 1) {
+        return complete_keymap();
+    } elsif ($ctx->word == 2) {
+        return;
+    } elsif ($ctx->word == 3) {
+        return ('command');
+    } else {
+        my $new_ctx = $ctx->shift_words(4);
+        return BarnOwl::Completion::get_completions($new_ctx);
+    }
+}
+
+sub complete_print {
+    my $ctx = shift;
+    return unless $ctx->word == 1;
+    return complete_variable();
+}
+
+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);
@@ -178 +206 @@
 BarnOwl::Completion::register_completer(unset   => \&complete_set);
 BarnOwl::Completion::register_completer(startup => \&complete_startup);
+BarnOwl::Completion::register_completer(bindkey => \&complete_bindkey);
+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;