package App::gh::Command::List;
use warnings;
use strict;
use base qw(App::gh::Command);
use App::gh;
use App::gh::Utils;


=head1 NAME

App::gh::Command::List - list repository from one.

=head1 USAGE

    $ gh list [user id]

=cut

sub options {
    ( 'n|name' => 'name_only' )
}

sub run {
    my ( $self, $acc ) = @_;

    $acc ||= App::gh->config->github_id;
    $acc =~ s{/$}{};

	# TODO: use api class.
    my $query = App::gh->github->repos;
    my @repolist = $query->list_user($acc);
    push @repolist, $query->next_page while $query->has_next_page;

    my @lines = ();
    for my $repo ( @repolist ) {
        my $repo_name = $repo->{name};

        # name-only
        if( $self->{name_only} ) {
            print $acc . "/" . $repo->{name} , "\n";
        }
        else {
            push @lines , [
                $acc . "/" . $repo->{name} ,
                ($repo->{description}||"")
            ];
        }
    }
    print_list @lines if @lines;
}

1;