Changeset bd25f30 for perl/lib/BarnOwl/Complete/Client.pm

Timestamp:

Aug 1, 2009, 9:38:41 PM (15 years ago)

Author:

David Benjamin <davidben@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:

6bc35b4

Parents:

bc5e856

git-author:

David Benjamin <davidben@mit.edu> (08/01/09 20:44:37)

git-committer:

David Benjamin <davidben@mit.edu> (08/01/09 21:38:41)

Message:

Complete the view command

Signed-off-by: David Benjamin <davidben@mit.edu>

File:

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

perl/lib/BarnOwl/Complete/Client.pm

@@ -203 +203 @@
 }
 
+sub complete_view {
+    my $ctx = shift;
+    if ($ctx->word == 1) {
+        return ("--home", "-d", complete_filter_name());
+    }
+    if ($ctx->words->[1] eq "--home") {
+        return;
+    }
+    if ($ctx->words->[1] eq "-d") {
+        return complete_filter_expr($ctx, 2);
+    }
+    return;
+}
+
 sub complete_getvar {
     my $ctx = shift;
@@ -227 +241 @@
 BarnOwl::Completion::register_completer(help    => \&complete_help);
 BarnOwl::Completion::register_completer(filter  => \&complete_filter);
+BarnOwl::Completion::register_completer(view    => \&complete_view);
 BarnOwl::Completion::register_completer(show    => \&complete_show);
 BarnOwl::Completion::register_completer(getvar  => \&complete_getvar);