Changeset ea7cfa8 for perl


Ignore:
Timestamp:
Aug 1, 2009, 12:10:36 PM (15 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:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/lib/BarnOwl/Complete/Zephyr.pm

    r84db778 rea7cfa8  
    3030}
    3131
     32sub complete_viewclass {
     33    my $ctx = shift;
     34    return unless $ctx->word == 1;
     35    return complete_class();
     36}
     37
     38sub complete_viewuser {
     39    my $ctx = shift;
     40    return unless $ctx->word == 1;
     41    return complete_user();
     42}
     43
    3244sub on_message {
    3345    my $m = shift;
     
    4153BarnOwl::Completion::register_completer(zcrypt    => \&complete_zwrite);
    4254
     55# Aliases should really be taken care of by the core completion code.
     56BarnOwl::Completion::register_completer(viewclass => \&complete_viewclass);
     57BarnOwl::Completion::register_completer(vc        => \&complete_viewclass);
     58BarnOwl::Completion::register_completer(viewuser  => \&complete_viewuser);
     59BarnOwl::Completion::register_completer(vu        => \&complete_viewuser);
     60
    4361$BarnOwl::Hooks::newMessage->add("BarnOwl::Complete::Zephyr::on_message");
    4462
Note: See TracChangeset for help on using the changeset viewer.