release-1.10release-1.4release-1.5release-1.6release-1.7release-1.8release-1.9
Last change
on this file since 4fbc7f5 was
84db778,
checked in by Nelson Elhage <nelhage@mit.edu>, 15 years ago
|
'subscribe' doesn't actually understand -r
Arguably it should, but until it does, tab-completion probably shouldn't
lie.
|
-
Property mode set to
100644
|
File size:
1.1 KB
|
Rev | Line | |
---|
[8f16dcd] | 1 | use strict; |
---|
| 2 | use warnings; |
---|
| 3 | |
---|
| 4 | package BarnOwl::Complete::Zephyr; |
---|
| 5 | |
---|
| 6 | use BarnOwl::Completion::Util qw(complete_flags); |
---|
| 7 | |
---|
| 8 | my %classes = (); |
---|
| 9 | my %realms = map {$_ => 1} qw(ATHENA.MIT.EDU ANDREW.CMU.EDU ZONE.MIT.EDU); |
---|
| 10 | my %users = (); |
---|
| 11 | |
---|
| 12 | sub complete_class { keys %classes } |
---|
| 13 | sub complete_instance { } |
---|
| 14 | sub complete_realm { keys %realms } |
---|
| 15 | sub complete_opcode { } |
---|
| 16 | sub complete_user { keys %users; } |
---|
| 17 | |
---|
| 18 | sub complete_zwrite { |
---|
| 19 | my $ctx = shift; |
---|
| 20 | return complete_flags($ctx, |
---|
| 21 | [qw(-n -C -m)], |
---|
| 22 | { |
---|
| 23 | "-c" => \&complete_class, |
---|
| 24 | "-i" => \&complete_instance, |
---|
| 25 | "-r" => \&complete_realm, |
---|
| 26 | "-O" => \&complete_opcode, |
---|
| 27 | }, |
---|
| 28 | \&complete_user |
---|
| 29 | ); |
---|
| 30 | } |
---|
| 31 | |
---|
| 32 | sub on_message { |
---|
| 33 | my $m = shift; |
---|
| 34 | return unless $m->type eq 'zephyr'; |
---|
| 35 | $classes{$m->class} = 1; |
---|
| 36 | $realms{$m->realm} = 1; |
---|
| 37 | $users{BarnOwl::Message::Zephyr::strip_realm($m->sender)} = 1; |
---|
| 38 | } |
---|
| 39 | |
---|
| 40 | BarnOwl::Completion::register_completer(zwrite => \&complete_zwrite); |
---|
| 41 | BarnOwl::Completion::register_completer(zcrypt => \&complete_zwrite); |
---|
| 42 | |
---|
| 43 | $BarnOwl::Hooks::newMessage->add("BarnOwl::Complete::Zephyr::on_message"); |
---|
| 44 | |
---|
| 45 | 1; |
---|
Note: See
TracBrowser
for help on using the repository browser.