Changeset 28cf94b for perl/lib/BarnOwl/Complete/Client.pm

Timestamp:

Aug 1, 2009, 9:22:59 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:

7940ac2

Parents:

2fa9a1a0

git-author:

David Benjamin <davidben@mit.edu> (08/01/09 16:29:43)

git-committer:

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

Message:

Add completions for getvar and set

Pending implementation of complete_variable, but for now set knows to
complete the -q flag. (Tested by hardcoding dummy listed into
complete_variable).

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

File:

• perl/lib/BarnOwl/Complete/Client.pm (modified) (1 diff)

perl/lib/BarnOwl/Complete/Client.pm

@@ -86 +86 @@
 }
 
+sub complete_getvar {
+    my $ctx = shift;
+    return unless ($ctx->word == 1);
+    return complete_variable();
+}
+
+sub complete_set {
+    my $ctx = shift;
+    return complete_flags($ctx,
+        [qw(-q)],
+        {
+        },
+         \&complete_set_args
+        );
+}
+sub complete_set_args {
+    my $ctx = shift;
+    my $arg = shift;
+    return if $arg;
+    return complete_variable();
+}
+
 BarnOwl::Completion::register_completer(help    => \&complete_help);
 BarnOwl::Completion::register_completer(filter  => \&complete_filter);
 BarnOwl::Completion::register_completer(show    => \&complete_show);
+BarnOwl::Completion::register_completer(getvar  => \&complete_getvar);
+BarnOwl::Completion::register_completer(set     => \&complete_set);
 
 1;