Changeset 1610e5b for perl/lib/BarnOwl/Complete/Client.pm

Timestamp:

Jul 29, 2009, 10:19:03 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:

ea7cfa8

Parents:

f907cf0

Message:

Implement completion for the 'show' command.

File:

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

perl/lib/BarnOwl/Complete/Client.pm

@@ -18 +18 @@
                     yellow);
 
+my %show = (
+    information => undef,
+    colors      => undef,
+    commands    => undef,
+    command     => \&complete_command,
+    filters     => undef,
+    filter      => \&complete_filter_name,
+    license     => undef,
+    quickstart  => undef,
+    startup     => undef,
+    status      => undef,
+    styles      => undef,
+    subscriptions       => undef,
+    subs        => undef,
+    terminal    => undef,
+    variables   => undef,
+    variable    => \&complete_variable,
+    version     => undef,
+    view        => undef,
+    zpunts      => undef,
+   );
+
 sub complete_command { return sort @BarnOwl::all_commands; }
 sub complete_color { return @all_colors; }
+sub complete_filter_name { return @{BarnOwl::all_filters()}; }
+sub complete_variable {}        # stub
 
 sub complete_filter_args {
@@ -25 +49 @@
     my $arg = shift;
     return if $arg;
-    return @{BarnOwl::all_filters()};
+    return complete_filter_name();
 }
 
@@ -36 +60 @@
         \&complete_command
        );
+}
+
+sub complete_show {
+    my $ctx = shift;
+    if($ctx->word == 1) {
+        return keys %show;
+    } elsif ($ctx->word == 2) {
+        my $cmd = $show{$ctx->words->[1]};
+        if($cmd) {
+            return $cmd->($ctx);
+        }
+    }
 }
 
@@ -52 +88 @@
 BarnOwl::Completion::register_completer(help    => \&complete_help);
 BarnOwl::Completion::register_completer(filter  => \&complete_filter);
+BarnOwl::Completion::register_completer(show    => \&complete_show);
 
 1;