Changeset d4ecc78 for perl

Timestamp:

Jul 28, 2009, 10:57:51 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:

3b80321

Parents:

7cd5878

git-author:

David Benjamin <davidben@mit.edu> (07/28/09 22:36:01)

git-committer:

David Benjamin <davidben@mit.edu> (07/28/09 22:57:51)

Message:

Complete color names for filters

This will likely have to be changed later, but for now, it's something.

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

File:

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

perl/lib/BarnOwl/Complete/Client.pm

@@ -8 +8 @@
 use BarnOwl::Completion::Util qw(complete_flags);
 
+my @all_colors = qw(default
+                    black
+                    blue
+                    cyan
+                    green
+                    magenta
+                    red
+                    white
+                    yellow);
+
 sub complete_command { return sort @BarnOwl::all_commands; }
+sub complete_color { return @all_colors; }
 
 sub complete_help {
@@ -20 +31 @@
 }
 
-BarnOwl::Completion::register_completer(help      => \&complete_help);
+sub complete_filter {
+    my $ctx = shift;
+    return complete_flags($ctx,
+        [qw()],
+        {
+           "-c" => \&complete_color,
+           "-b" => \&complete_color,
+        },
+        undef # TODO: make this get list of filters for the first argument
+              # then maybe some magic like completing keywords instance and other shiny
+        );
+}
+
+BarnOwl::Completion::register_completer(help    => \&complete_help);
+BarnOwl::Completion::register_completer(filter  => \&complete_filter);
 
 1;