1 | use strict; |
---|
2 | use warnings; |
---|
3 | |
---|
4 | package BarnOwl::Module::IRC::Completion; |
---|
5 | |
---|
6 | use BarnOwl::Completion::Util qw(complete_flags); |
---|
7 | |
---|
8 | my %networks = (); |
---|
9 | my %dests = (); |
---|
10 | my %servers = (); |
---|
11 | |
---|
12 | sub complete_networks { keys %networks } |
---|
13 | sub complete_dests { keys %dests } |
---|
14 | sub complete_channels { grep /^#/, keys %dests } |
---|
15 | sub complete_nicks { grep /^[^#]/, keys %dests } |
---|
16 | sub complete_servers { keys %servers } |
---|
17 | |
---|
18 | sub complete_irc_connect { |
---|
19 | my $ctx = shift; |
---|
20 | return complete_flags($ctx, |
---|
21 | [qw(-s)], |
---|
22 | { |
---|
23 | "-a" => \&complete_networks, |
---|
24 | "-p" => sub {}, |
---|
25 | "-n" => sub {}, |
---|
26 | }, |
---|
27 | \&complete_servers |
---|
28 | ); |
---|
29 | } |
---|
30 | |
---|
31 | sub complete_irc_network { |
---|
32 | my $ctx = shift; |
---|
33 | return complete_flags($ctx, |
---|
34 | [], |
---|
35 | { |
---|
36 | "-a" => \&complete_networks, |
---|
37 | }, |
---|
38 | ); |
---|
39 | } |
---|
40 | |
---|
41 | sub complete_irc_dest { |
---|
42 | my $ctx = shift; |
---|
43 | return complete_flags($ctx, |
---|
44 | [], |
---|
45 | { |
---|
46 | "-a" => \&complete_networks, |
---|
47 | }, |
---|
48 | \&complete_dests |
---|
49 | ); |
---|
50 | } |
---|
51 | |
---|
52 | sub complete_irc_channel { |
---|
53 | my $ctx = shift; |
---|
54 | return complete_flags($ctx, |
---|
55 | [], |
---|
56 | { |
---|
57 | "-a" => \&complete_networks, |
---|
58 | }, |
---|
59 | \&complete_channels |
---|
60 | ); |
---|
61 | } |
---|
62 | |
---|
63 | sub complete_irc_nick { |
---|
64 | my $ctx = shift; |
---|
65 | return complete_flags($ctx, |
---|
66 | [], |
---|
67 | { |
---|
68 | "-a" => \&complete_networks, |
---|
69 | }, |
---|
70 | \&complete_nicks |
---|
71 | ); |
---|
72 | } |
---|
73 | |
---|
74 | sub on_message { |
---|
75 | my $m = shift; |
---|
76 | return unless $m->type eq 'IRC'; |
---|
77 | $networks{$m->network} = 1; |
---|
78 | $dests{$m->recipient} = 1; |
---|
79 | $dests{$m->sender} = 1; |
---|
80 | $servers{$m->server} = 1; |
---|
81 | } |
---|
82 | |
---|
83 | BarnOwl::Completion::register_completer('irc-connect' => \&complete_irc_connect); |
---|
84 | BarnOwl::Completion::register_completer('irc-disconnect' => \&complete_irc_network); |
---|
85 | BarnOwl::Completion::register_completer('irc-msg' => \&complete_irc_dest); |
---|
86 | BarnOwl::Completion::register_completer('irc-mode' => \&complete_irc_dest); |
---|
87 | BarnOwl::Completion::register_completer('irc-join' => \&complete_irc_channel); |
---|
88 | BarnOwl::Completion::register_completer('irc-part' => \&complete_irc_channel); |
---|
89 | BarnOwl::Completion::register_completer('irc-names' => \&complete_irc_channel); |
---|
90 | BarnOwl::Completion::register_completer('irc-whois' => \&complete_irc_nick); |
---|
91 | BarnOwl::Completion::register_completer('irc-motd' => \&complete_irc_network); |
---|
92 | BarnOwl::Completion::register_completer('irc-topic' => \&complete_irc_channel); |
---|
93 | BarnOwl::Completion::register_completer('irc-quote' => \&complete_irc_network); |
---|
94 | |
---|
95 | $BarnOwl::Hooks::newMessage->add("BarnOwl::Module::IRC::Completion::on_message"); |
---|
96 | |
---|
97 | 1; |
---|