source: perl/lib/BarnOwl/Complete/Client.pm @ e8074ed

release-1.10release-1.5release-1.6release-1.7release-1.8release-1.9
Last change on this file since e8074ed was dab89e28, checked in by Alex Dehnert <adehnert@mit.edu>, 15 years ago
Add completion for :filter*
  • Property mode set to 100644
File size: 4.7 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);
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    information => undef,
23    colors      => undef,
24    commands    => undef,
25    command     => \&complete_command,
26    errors      => undef,
27    filters     => undef,
28    filter      => \&complete_filter_name,
29    license     => undef,
30    keymaps     => undef,
31    keymap      => \&complete_keymap,
32    quickstart  => undef,
33    startup     => undef,
34    status      => undef,
35    styles      => undef,
36    subscriptions       => undef,
37    subs        => undef,
38    terminal    => undef,
39    variables   => undef,
40    variable    => \&complete_variable,
41    version     => undef,
42    view        => undef,
43    zpunts      => undef,
44   );
45
46sub complete_command { return sort @BarnOwl::all_commands; }
47sub complete_color { return @all_colors; }
48sub complete_variable    { return @{BarnOwl::all_variables()}; }
49sub complete_style       { return @{BarnOwl::all_styles()}; }
50sub complete_keymap      { return @{BarnOwl::all_keymaps()}; }
51
52sub complete_help {
53    my $ctx = shift;
54    if($ctx->word == 1) {
55        return complete_command();
56    }
57}
58
59sub complete_show {
60    my $ctx = shift;
61    if($ctx->word == 1) {
62        return keys %show;
63    } elsif ($ctx->word == 2) {
64        my $cmd = $show{$ctx->words->[1]};
65        if($cmd) {
66            return $cmd->($ctx);
67        }
68    }
69}
70
71sub complete_filter {
72    my $ctx = shift;
73    # Syntax: filter FILTERNAME FLAGS EXPR
74
75    # FILTERNAME
76    return complete_filter_name() if $ctx->word == 1;
77
78    # FLAGS
79    $ctx = $ctx->shift_words(1); # complete_flags starts at the second word
80    return complete_flags($ctx,
81        [qw()],
82        {
83           "-c" => \&complete_color,
84           "-b" => \&complete_color,
85        },
86        # EXPR
87        sub {
88            my $ctx = shift;
89            my $arg = shift;
90
91            # We pass stop_at_nonflag, so we can rewind to the start
92            my $idx = $ctx->word - $arg;
93            $ctx = $ctx->shift_words($idx);
94            return complete_filter_expr($ctx);
95        },
96        stop_at_nonflag => 1
97        );
98}
99
100sub complete_filter_no_flags
101{
102    my $ctx = shift;
103    # Syntax: filter FILTERNAME EXPR
104
105    # FILTERNAME
106    return complete_filter_name() if $ctx->word == 1;
107
108    $ctx = $ctx->shift_words(2);
109    return complete_filter_expr($ctx);
110}
111
112sub complete_filter_append {
113    my $ctx = shift;
114    # Syntax: filterappend FILTERNAME EXPR
115
116    # FILTERNAME
117    return complete_filter_name() if $ctx->word == 1;
118    return qw(and or) if $ctx->word == 2;
119    $ctx = $ctx->shift_words(3);
120    return complete_filter_expr($ctx);
121}
122
123sub complete_view {
124    my $ctx = shift;
125    if ($ctx->word == 1) {
126        return ("--home", "-d", "-r", "-s", complete_filter_name());
127    }
128    if ($ctx->words->[1] eq "--home") {
129        return;
130    }
131    if ($ctx->words->[1] eq "-d") {
132        $ctx = $ctx->shift_words(2);
133        return complete_filter_expr($ctx);
134    }
135    if ($ctx->words->[1] eq "-s") {
136        return complete_style();
137    }
138    return;
139}
140
141sub complete_getvar {
142    my $ctx = shift;
143    return unless ($ctx->word == 1);
144    return complete_variable();
145}
146
147sub complete_set {
148    my $ctx = shift;
149    return complete_flags($ctx,
150        [qw(-q)],
151        {
152        },
153         \&complete_set_args
154        );
155}
156sub complete_set_args {
157    my $ctx = shift;
158    my $arg = shift;
159    return if $arg;
160    return complete_variable();
161}
162
163sub complete_startup {
164    my $ctx = shift;
165    my $new_ctx = $ctx->shift_words(1);
166    return BarnOwl::Completion::get_completions($new_ctx);
167}
168
169BarnOwl::Completion::register_completer(help    => \&complete_help);
170BarnOwl::Completion::register_completer(filter  => \&complete_filter);
171BarnOwl::Completion::register_completer(filteror        => \&complete_filter_no_flags);
172BarnOwl::Completion::register_completer(filterand       => \&complete_filter_no_flags);
173BarnOwl::Completion::register_completer(filterappend    => \&complete_filter_append);
174BarnOwl::Completion::register_completer(view    => \&complete_view);
175BarnOwl::Completion::register_completer(show    => \&complete_show);
176BarnOwl::Completion::register_completer(getvar  => \&complete_getvar);
177BarnOwl::Completion::register_completer(set     => \&complete_set);
178BarnOwl::Completion::register_completer(unset   => \&complete_set);
179BarnOwl::Completion::register_completer(startup => \&complete_startup);
180
1811;
Note: See TracBrowser for help on using the repository browser.