source: perl/lib/BarnOwl/Complete/Client.pm @ 78b9503

release-1.10
Last change on this file since 78b9503 was 4626016, checked in by Alejandro R. Sedeño <asedeno@mit.edu>, 11 years ago
Remove completion for nonexistent ':show information'
  • Property mode set to 100644
File size: 5.9 KB
Line 
1use strict;
2use warnings;
3
4# Completers for client state
5
6package BarnOwl::Complete::Client;
7
8use BarnOwl::Completion::Util qw(complete_flags complete_file);
9use BarnOwl::Complete::Filter qw(complete_filter_name complete_filter_expr);
10
11my @all_colors = qw(default
12                    black
13                    blue
14                    cyan
15                    green
16                    magenta
17                    red
18                    white
19                    yellow);
20
21my %show = (
22    colors      => undef,
23    commands    => undef,
24    command     => \&complete_command,
25    errors      => undef,
26    filters     => undef,
27    filter      => \&complete_filter_name,
28    license     => undef,
29    keymaps     => undef,
30    keymap      => \&complete_keymap,
31    quickstart  => undef,
32    startup     => undef,
33    status      => undef,
34    styles      => undef,
35    subscriptions       => undef,
36    subs        => undef,
37    terminal    => undef,
38    variables   => undef,
39    variable    => \&complete_variable,
40    version     => undef,
41    view        => undef,
42    zpunts      => undef,
43   );
44
45sub complete_command { return sort @BarnOwl::all_commands; }
46sub complete_color { return @all_colors; }
47sub complete_variable    { return @{BarnOwl::all_variables()}; }
48sub complete_style       { return @{BarnOwl::all_styles()}; }
49sub complete_keymap      { return @{BarnOwl::all_keymaps()}; }
50
51sub complete_help {
52    my $ctx = shift;
53    if($ctx->word == 1) {
54        return complete_command();
55    }
56}
57
58sub complete_show {
59    my $ctx = shift;
60    if($ctx->word == 1) {
61        return keys %show;
62    } elsif ($ctx->word == 2) {
63        my $cmd = $show{$ctx->words->[1]};
64        if($cmd) {
65            return $cmd->($ctx);
66        }
67    }
68}
69
70sub complete_filter {
71    my $ctx = shift;
72    # Syntax: filter FILTERNAME FLAGS EXPR
73
74    # FILTERNAME
75    return complete_filter_name() if $ctx->word == 1;
76
77    # FLAGS
78    $ctx = $ctx->shift_words(1); # complete_flags starts at the second word
79    return complete_flags($ctx,
80        [qw()],
81        {
82           "-c" => \&complete_color,
83           "-b" => \&complete_color,
84        },
85        # EXPR
86        sub {
87            my $ctx = shift;
88            my $arg = shift;
89
90            # We pass stop_at_nonflag, so we can rewind to the start
91            my $idx = $ctx->word - $arg;
92            $ctx = $ctx->shift_words($idx);
93            return complete_filter_expr($ctx);
94        },
95        stop_at_nonflag => 1
96        );
97}
98
99sub complete_filter_no_flags
100{
101    my $ctx = shift;
102    # Syntax: filter FILTERNAME EXPR
103
104    # FILTERNAME
105    return complete_filter_name() if $ctx->word == 1;
106
107    $ctx = $ctx->shift_words(2);
108    return complete_filter_expr($ctx);
109}
110
111sub complete_filter_append {
112    my $ctx = shift;
113    # Syntax: filterappend FILTERNAME EXPR
114
115    # FILTERNAME
116    return complete_filter_name() if $ctx->word == 1;
117    return qw(and or) if $ctx->word == 2;
118    $ctx = $ctx->shift_words(3);
119    return complete_filter_expr($ctx);
120}
121
122sub complete_view {
123    my $ctx = shift;
124    if ($ctx->word == 1) {
125        return ("--home", "-d", "-r", "-s", complete_filter_name());
126    }
127    if ($ctx->words->[1] eq "--home") {
128        return;
129    }
130    if ($ctx->words->[1] eq "-d") {
131        $ctx = $ctx->shift_words(2);
132        return complete_filter_expr($ctx);
133    }
134    if ($ctx->words->[1] eq "-s") {
135        return complete_style();
136    }
137    return;
138}
139
140sub complete_getvar {
141    my $ctx = shift;
142    return unless ($ctx->word == 1);
143    return complete_variable();
144}
145
146sub complete_set {
147    my $ctx = shift;
148    return complete_flags($ctx,
149        [qw(-q)],
150        {
151        },
152         \&complete_set_args
153        );
154}
155sub complete_set_args {
156    my $ctx = shift;
157    my $arg = shift;
158    return if $arg;
159    return complete_variable();
160}
161
162sub complete_startup {
163    my $ctx = shift;
164    my $new_ctx = $ctx->shift_words(1);
165    return BarnOwl::Completion::get_completions($new_ctx);
166}
167
168sub complete_bindkey {
169    my $ctx = shift;
170    # bindkey KEYMAP KEYSEQ command COMMAND
171    #   0      1       2      3        4
172    if ($ctx->word == 1) {
173        return complete_keymap();
174    } elsif ($ctx->word == 2) {
175        return;
176    } elsif ($ctx->word == 3) {
177        return ('command');
178    } else {
179        my $new_ctx = $ctx->shift_words(4);
180        return BarnOwl::Completion::get_completions($new_ctx);
181    }
182}
183
184sub complete_print {
185    my $ctx = shift;
186    return unless $ctx->word == 1;
187    return complete_variable();
188}
189
190sub complete_one_file_arg {
191    my $ctx = shift;
192    return unless $ctx->word == 1;
193    return complete_file($ctx->words->[1]);
194}
195
196BarnOwl::Completion::register_completer(help    => \&complete_help);
197BarnOwl::Completion::register_completer(filter  => \&complete_filter);
198BarnOwl::Completion::register_completer(filteror        => \&complete_filter_no_flags);
199BarnOwl::Completion::register_completer(filterand       => \&complete_filter_no_flags);
200BarnOwl::Completion::register_completer(filterappend    => \&complete_filter_append);
201BarnOwl::Completion::register_completer(view    => \&complete_view);
202BarnOwl::Completion::register_completer(show    => \&complete_show);
203BarnOwl::Completion::register_completer(getvar  => \&complete_getvar);
204BarnOwl::Completion::register_completer(set     => \&complete_set);
205BarnOwl::Completion::register_completer(unset   => \&complete_set);
206BarnOwl::Completion::register_completer(startup   => \&complete_startup);
207BarnOwl::Completion::register_completer(unstartup => \&complete_startup);
208BarnOwl::Completion::register_completer(bindkey => \&complete_bindkey);
209BarnOwl::Completion::register_completer(print   => \&complete_print);
210
211BarnOwl::Completion::register_completer(source      => \&complete_one_file_arg);
212BarnOwl::Completion::register_completer('load-subs' => \&complete_one_file_arg);
213BarnOwl::Completion::register_completer(loadsubs    => \&complete_one_file_arg);
214BarnOwl::Completion::register_completer(loadloginsubs    => \&complete_one_file_arg);
215BarnOwl::Completion::register_completer(dump        => \&complete_one_file_arg);
216
2171;
Note: See TracBrowser for help on using the repository browser.