Changeset dab89e28 for perl/lib

Timestamp:

Nov 20, 2009, 3:28:56 AM (15 years ago)

Author:

Alex Dehnert <adehnert@mit.edu>

Branches:

master, release-1.10, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

e8074ed

Parents:

1b9a163

git-author:

Alex Dehnert <adehnert@mit.edu> (10/27/09 17:44:44)

git-committer:

Alex Dehnert <adehnert@mit.edu> (11/20/09 03:28:56)

Message:

Add completion for :filter*

File:

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

perl/lib/BarnOwl/Complete/Client.pm

@@ -98 +98 @@
 }
 
+sub complete_filter_no_flags
+{
+    my $ctx = shift;
+    # Syntax: filter FILTERNAME EXPR
+
+    # FILTERNAME
+    return complete_filter_name() if $ctx->word == 1;
+
+    $ctx = $ctx->shift_words(2);
+    return complete_filter_expr($ctx);
+}
+
+sub complete_filter_append {
+    my $ctx = shift;
+    # Syntax: filterappend FILTERNAME EXPR
+
+    # FILTERNAME
+    return complete_filter_name() if $ctx->word == 1;
+    return qw(and or) if $ctx->word == 2;
+    $ctx = $ctx->shift_words(3);
+    return complete_filter_expr($ctx);
+}
+
 sub complete_view {
     my $ctx = shift;
@@ -146 +169 @@
 BarnOwl::Completion::register_completer(help    => \&complete_help);
 BarnOwl::Completion::register_completer(filter  => \&complete_filter);
+BarnOwl::Completion::register_completer(filteror        => \&complete_filter_no_flags);
+BarnOwl::Completion::register_completer(filterand       => \&complete_filter_no_flags);
+BarnOwl::Completion::register_completer(filterappend    => \&complete_filter_append);
 BarnOwl::Completion::register_completer(view    => \&complete_view);
 BarnOwl::Completion::register_completer(show    => \&complete_show);