Changeset 3e8625f for perl/lib/BarnOwl/Complete

Timestamp:

Nov 15, 2009, 10:36:45 AM (15 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

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

Children:

f63a681

Parents:

01846ce

git-author:

Nelson Elhage <nelhage@mit.edu> (11/15/09 10:32:25)

git-committer:

Nelson Elhage <nelhage@mit.edu> (11/15/09 10:36:45)

Message:

Complete class names for the 'unsub' command.

File:

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

perl/lib/BarnOwl/Complete/Zephyr.pm

@@ -42 +42 @@
 }
 
+sub complete_unsub {
+    my $ctx = shift;
+    return unless $ctx->word == 1;
+    return complete_class();
+}
+
 sub on_message {
     my $m = shift;
@@ -59 +65 @@
 BarnOwl::Completion::register_completer(vu        => \&complete_viewuser);
 
+BarnOwl::Completion::register_completer(unsub     => \&complete_unsub);
+
 $BarnOwl::Hooks::newMessage->add("BarnOwl::Complete::Zephyr::on_message");