Changeset ea7cfa8 for perl/lib/BarnOwl

Timestamp:

Aug 1, 2009, 12:10:36 PM (16 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:

2fa9a1a0

Parents:

1610e5b

Message:

Add completion for viewuser and viewclass.

File:

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

perl/lib/BarnOwl/Complete/Zephyr.pm

@@ -30 +30 @@
 }
 
+sub complete_viewclass {
+    my $ctx = shift;
+    return unless $ctx->word == 1;
+    return complete_class();
+}
+
+sub complete_viewuser {
+    my $ctx = shift;
+    return unless $ctx->word == 1;
+    return complete_user();
+}
+
 sub on_message {
     my $m = shift;
@@ -41 +53 @@
 BarnOwl::Completion::register_completer(zcrypt    => \&complete_zwrite);
 
+# Aliases should really be taken care of by the core completion code.
+BarnOwl::Completion::register_completer(viewclass => \&complete_viewclass);
+BarnOwl::Completion::register_completer(vc        => \&complete_viewclass);
+BarnOwl::Completion::register_completer(viewuser  => \&complete_viewuser);
+BarnOwl::Completion::register_completer(vu        => \&complete_viewuser);
+
 $BarnOwl::Hooks::newMessage->add("BarnOwl::Complete::Zephyr::on_message");