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

release-1.10release-1.5release-1.6release-1.7release-1.8release-1.9
Last change on this file since ac374fc 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
RevLine 
[f80ada8]1use strict;
2use warnings;
3
4# Completers for client state
5
6package BarnOwl::Complete::Client;
7
8use BarnOwl::Completion::Util qw(complete_flags);
[a3a9eb7]9use BarnOwl::Complete::Filter qw(complete_filter_name complete_filter_expr);
[f80ada8]10
[d4ecc78]11my @all_colors = qw(default
12                    black
13                    blue
14                    cyan
15                    green
16                    magenta
17                    red
18                    white
19                    yellow);
20
[1610e5b]21my %show = (
22    information => undef,
23    colors      => undef,
24    commands    => undef,
25    command     => \&complete_command,
[02a72bf]26    errors      => undef,
[1610e5b]27    filters     => undef,
28    filter      => \&complete_filter_name,
29    license     => undef,
[02a72bf]30    keymaps     => undef,
31    keymap      => \&complete_keymap,
[1610e5b]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
[f80ada8]46sub complete_command { return sort @BarnOwl::all_commands; }
[d4ecc78]47sub complete_color { return @all_colors; }
[3ff3d86]48sub complete_variable    { return @{BarnOwl::all_variables()}; }
49sub complete_style       { return @{BarnOwl::all_styles()}; }
[02a72bf]50sub complete_keymap      { return @{BarnOwl::all_keymaps()}; }
[f80ada8]51
52sub complete_help {
53    my $ctx = shift;
[7940ac2]54    if($ctx->word == 1) {
55        return complete_command();
56    }
[f80ada8]57}
58
[1610e5b]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
[d4ecc78]71sub complete_filter {
72    my $ctx = shift;
[76e0e4a]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
[d4ecc78]80    return complete_flags($ctx,
81        [qw()],
82        {
83           "-c" => \&complete_color,
84           "-b" => \&complete_color,
85        },
[76e0e4a]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;
[6035008]93            $ctx = $ctx->shift_words($idx);
94            return complete_filter_expr($ctx);
[76e0e4a]95        },
96        stop_at_nonflag => 1
[d4ecc78]97        );
98}
99
[dab89e28]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
[bd25f30]123sub complete_view {
124    my $ctx = shift;
125    if ($ctx->word == 1) {
[6bc35b4]126        return ("--home", "-d", "-r", "-s", complete_filter_name());
[bd25f30]127    }
128    if ($ctx->words->[1] eq "--home") {
129        return;
130    }
131    if ($ctx->words->[1] eq "-d") {
[6035008]132        $ctx = $ctx->shift_words(2);
133        return complete_filter_expr($ctx);
[bd25f30]134    }
[6bc35b4]135    if ($ctx->words->[1] eq "-s") {
136        return complete_style();
137    }
[bd25f30]138    return;
139}
140
[28cf94b]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
[b06a888]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
[d4ecc78]169BarnOwl::Completion::register_completer(help    => \&complete_help);
170BarnOwl::Completion::register_completer(filter  => \&complete_filter);
[dab89e28]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);
[bd25f30]174BarnOwl::Completion::register_completer(view    => \&complete_view);
[1610e5b]175BarnOwl::Completion::register_completer(show    => \&complete_show);
[28cf94b]176BarnOwl::Completion::register_completer(getvar  => \&complete_getvar);
177BarnOwl::Completion::register_completer(set     => \&complete_set);
[d5ccf4e8]178BarnOwl::Completion::register_completer(unset   => \&complete_set);
[b06a888]179BarnOwl::Completion::register_completer(startup => \&complete_startup);
[f80ada8]180
1811;
Note: See TracBrowser for help on using the repository browser.