view release on metacpan or  search on metacpan

lib/App/karr/Cmd/Show.pm  view on Meta::CPAN

# ABSTRACT: Show full details of a task

package App::karr::Cmd::Show;
our $VERSION = '0.302';
use Moo;
use MooX::Cmd;
use MooX::Options (
  usage_string => 'USAGE: karr show [ID] [--me] [--agent NAME] [--last N] [--json]',
);
use App::karr::Role::BoardAccess;
use App::karr::Role::Output;
use App::karr::Task;

with 'App::karr::Role::BoardAccess', 'App::karr::Role::Output';


option last => (
  is      => 'ro',
  format  => 'i',
  default => sub { 1 },
  doc     => 'Number of recent tasks to show (default: 1)',
);

option me => (
  is  => 'ro',
  doc => 'Show the task(s) my identity most recently acted on',
);

option agent => (
  is     => 'ro',
  format => 's',
  doc    => 'Show the task(s) most recently claimed by this agent name',
);

sub _show_task {
  my ($self, $task) = @_;

  if ($self->json) {
    my $data = $task->to_frontmatter;
    $data->{body} = $task->body if $task->body;
    $self->print_json($data);
    return;
  }

  printf "Task #%d: %s\n", $task->id, $task->title;
  printf "Status:   %s\n", $task->status;
  printf "Priority: %s\n", $task->priority;
  printf "Class:    %s\n", $task->class;
  printf "Assignee: %s\n", $task->assignee if $task->has_assignee;
  printf "Tags:     %s\n", join(', ', @{$task->tags}) if @{$task->tags};
  printf "Due:      %s\n", $task->due if $task->has_due;
  printf "Estimate: %s\n", $task->estimate if $task->has_estimate;
  printf "Claimed:  %s\n", $task->claimed_by if $task->has_claimed_by;
  printf "Blocked:  %s\n", $task->blocked if $task->has_blocked;
  printf "Created:  %s\n", $task->created;
  printf "Updated:  %s\n", $task->updated;
  if ($task->body) {
    print "\n" . $task->body . "\n";
  }
}

# Tasks sorted most-recently-updated first.
sub _by_updated {
  my ($self, @tasks) = @_;
  return sort { ($b->updated // '') cmp ($a->updated // '') } @tasks;
}

# Task ids the current identity most recently acted on, newest first, deduped.
sub _my_recent_ids {
  my ($self, $limit) = @_;
  my @ids;
  my %seen;
  for my $entry (reverse $self->activity_log->entries) {
    my $tid = $entry->{task_id};
    next unless defined $tid;
    next if $seen{$tid}++;
    push @ids, $tid;
    last if @ids >= $limit;
  }
  return @ids;
}

sub _select_tasks {
  my ($self, $id) = @_;

  # Explicit id always wins.
  if (defined $id) {
    my $task = $self->find_task($id);
    die "Task $id not found\n" unless $task;
    return ($task);
  }

  my $limit = $self->last > 0 ? $self->last : 1;

  if ($self->me) {
    my @tasks = grep { defined } map { $self->find_task($_) } $self->_my_recent_ids($limit);
    return @tasks;
  }

  if (defined $self->agent) {
    my @claimed = grep { $_->has_claimed_by && $_->claimed_by eq $self->agent } $self->load_tasks;
    my @sorted  = $self->_by_updated(@claimed);
    return splice(@sorted, 0, $limit);
  }

  my @sorted = $self->_by_updated($self->load_tasks);
  return splice(@sorted, 0, $limit);
}

sub execute {
  my ($self, $args_ref, $chain_ref) = @_;

  my @tasks = $self->_select_tasks($args_ref->[0]);