diff options
author | Matthew Lemon <matt@matthewlemon.com> | 2022-09-15 16:50:52 +0100 |
---|---|---|
committer | Matthew Lemon <matt@matthewlemon.com> | 2022-09-15 16:50:52 +0100 |
commit | eaf5fb1ae0fafad330447cf4cff75c7e8dd4e1f2 (patch) | |
tree | 1bc6127dd746112ba31b9f243239efe2708e4f66 | |
parent | 74a4a22c183536eff3c43fddfc78ce66ee690a18 (diff) |
tw insert code as a separate file
-rw-r--r-- | task_next_projects.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/task_next_projects.pl b/task_next_projects.pl index f9714b5..d87d8a4 100644 --- a/task_next_projects.pl +++ b/task_next_projects.pl @@ -9,7 +9,7 @@ sub pending_work { my $tw = qx(task project:w status:pending export); my $text = $json->decode( $tw ); foreach my $h (@{$text}) { - printf ("%s: %s\n", ${$h}{'uuid'}, ${$h}{'description'}); + printf ("%-16s: %s\n", ${$h}{'project'}, ${$h}{'description'}); } } @@ -17,10 +17,11 @@ sub pending_home { my $tw = qx(task project:h status:pending export); my $text = $json->decode( $tw ); foreach my $h (@{$text}) { - printf ("%s: %s\n", ${$h}{'uuid'}, ${$h}{'description'}); + printf ("%-16s: %s\n", ${$h}{'project'}, ${$h}{'description'}); } } + print "Work:\n-----\n"; pending_work(); |