File Coverage

blib/lib/MooseX/App/Plugin/ZshCompletion/Command.pm

Criterion	Covered	Total	%
statement	79	79	100.0
branch	13	16	81.2
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	98	101	97.0

package MooseX::App::Plugin::ZshCompletion::Command;
# ABSTRACT: Command class for MooseX::App::Plugin::ZshCompletion

use Moose;
use 5.010;
our $VERSION = '0.002'; # VERSION

use namespace::autoclean;
use MooseX::App::Command;

command_short_description q(Zsh completion automator);

sub zsh_completion {
    my ($self,$app) = @_;

    my %command_map;
    my $app_meta        = $app->meta;
    my $commands        = $app_meta->app_commands;
    my $command_list    = join (' ', sort keys %{$commands});
    my $package         = __PACKAGE__;
    my $prefix          = $app_meta->app_base;

    my ($sec,$min,$hour,$mday,$mon,$year) = localtime(time);
    $year               += 1900;
    $mday               = sprintf('%02i',$mday);
    $mon                = sprintf('%02i',$mon+1);

    $prefix             =~ tr/./_/;

    while (my ($command,$command_class) = each %$commands) {
        Class::Load::load_class($command_class);
        my @parameters = $app_meta->command_usage_attributes($command_class->meta,'parameter');
        my @options = $app_meta->command_usage_attributes($command_class->meta,[qw(option proto)]);
        $command_map{$command} = {
            parameters  => \@parameters,
            options     => \@options,
        };
    }

    my $syntax = '';
    my $subcmd = '';
    my $subcmd_functions = '';

    for my $command (sort keys %command_map) {
        my $data = $command_map{ $command };
        $subcmd .= <<"EOM";
    $command)
        _${prefix}_$command
    ;;
EOM

        my $options = $command_map{ $command }->{options};
        my $option_list = '';
        my $parameter_list = '';
        my $parameter_completion = '';

        my $i = 2;
        for my $param (@{ $command_map{ $command }->{parameters} }) {
            my $name = $param->cmd_usage_name;
            my $doc = $param->documentation;

            my $comp = "_files";
            if ($param->has_type_constraint) {
                my $tc = $param->type_constraint;
                if ($tc->isa('Moose::Meta::TypeConstraint::Enum')) {
                    my $values = join ' ', sort @{ $tc->values };
                    $comp = "compadd -X '$doc' $values";
                }
            }
            my $position = $param->is_required ? $i : '*';
            $parameter_list .= qq{    '$position: :->$name' \\\n};
            $parameter_completion .= <<"EOM";
        $name)
            $comp
        ;;
EOM
            $i++;
        }
        if (length $parameter_completion) {
            $parameter_completion = <<"EOM";
    curcontext="\${curcontext%:*:*}:$prefix-cmd-\$words[1]:"

    case \$state in
$parameter_completion
    esac
EOM
        }

        for my $opt (@$options) {
            my $name = $opt->cmd_usage_name;
            my @names = $opt->cmd_name_possible;
            my $doc = $opt->documentation;
            $doc =~ s/'/'"'"'/g;

            my @opt = split ' ', $name;
            if (@opt > 1) {
                # '(-q --quiet)'{-q,--quiet}'[Show minimal output]' \
                $option_list .= "        '(@{[ @opt ]})'\{@{[ join ',', @opt ]}\}'\[$doc\]";
            }
            else {
                $option_list .= "        '$opt[0]\[$doc\]";
            }
            if ($opt->has_type_constraint) {
                my $tc = $opt->type_constraint;
                if ($tc->isa('Moose::Meta::TypeConstraint::Enum')) {
                    my $values = join ' ', sort @{ $tc->values };
                    $option_list .= ":$names[0]:($values)";
                }
                elsif ($opt->type_constraint->is_a_type_of('Bool')) {
                }
                else {
                    $option_list .= ":$names[0]";
                }
            }
            $option_list .= "' \\\n";
        }
        $subcmd_functions .= <<"EOM";
_${prefix}_$command() {
    _arguments -C \\
    '1: :->subcmd' \\
$parameter_list$option_list && ret=0

$parameter_completion
}

EOM
    }

    $syntax .= <<"EOT";
#compdef $prefix

# Built with $package on $year/$mon/$mday

_$prefix() {
    typeset -A opt_args
    local curcontext="\$curcontext" state line context

    _arguments -s \\
        '1: :->subcmd' \\
        '*: :->args' \\
    && ret=0

    case \$state in

    subcmd)
        compadd help $command_list
    ;;

    args)
        curcontext="\${curcontext%:*:*}:$prefix-cmd-\$words[1]:"

        case \$line[1] in
$subcmd
        help)
            _${prefix}_help
        esac

    esac
}

$subcmd_functions
_${prefix}_help() {
    compadd $command_list
}

EOT


    return MooseX::App::Message::Envelope->new(
        MooseX::App::Message::Block->new({ body => $syntax })
    );
}

__PACKAGE__->meta->make_immutable;
1;

__END__

=head1 NAME

MooseX::App::Plugin::ZshCompletion::Command - generates the zsh completion for MooseX::App::Plugin::ZshCompletion

=head1 METHODS

=over 4

=item zsh_completion

This method is doing the generation.

=back

=cut