Changeset 1dc839b for perl/lib

Timestamp:

Dec 28, 2009, 12:03:28 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:

4d26776

Parents:

ac374fc

git-author:

Nelson Elhage <nelhage@mit.edu> (12/24/09 15:58:35)

git-committer:

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

Message:

Complete the 'bindkey' command.

File:

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

perl/lib/BarnOwl/Complete/Client.pm

@@ -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);
+    }
+}
+
 BarnOwl::Completion::register_completer(help    => \&complete_help);
 BarnOwl::Completion::register_completer(filter  => \&complete_filter);
@@ -178 +194 @@
 BarnOwl::Completion::register_completer(unset   => \&complete_set);
 BarnOwl::Completion::register_completer(startup => \&complete_startup);
+BarnOwl::Completion::register_completer(bindkey => \&complete_bindkey);
 
 1;