aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lib/Taurus/CLI.rakumod31
1 files changed, 19 insertions, 12 deletions
diff --git a/lib/Taurus/CLI.rakumod b/lib/Taurus/CLI.rakumod
index ba98381..ecd245c 100644
--- a/lib/Taurus/CLI.rakumod
+++ b/lib/Taurus/CLI.rakumod
@@ -15,8 +15,6 @@ multi sub MAIN (
) is export {
my @logs;
my Str %contacts{Str};
- my Str @month-name = <Month January February March April May June
- July August September October November December>;
my Instant $timed = now;
my Promise $initial = start {
@@ -86,16 +84,7 @@ multi sub MAIN (
print-basic-stats($p1, @logs) with %meta<all>;
with %meta<year> -> $year {
- $p1.put: "Year: " ~ $year;
- $p1.put: "";
- with @logs.grep(*.[3].year eqv $year) {
- print-basic-stats($p1, $_);
- $p1.put: "";
- for .map(*.[3].month).unique.sort -> $month {
- $p1.put: "%-*s %s".sprintf($fmt, @month-name[$month] ~ ":",
- seconds-to-str(.grep(*.[3].month eqv $month).map(*.[4]).sum));
- }
- }
+ print-yearly-record($p1, @logs, $year);
}
with %meta<number> -> $num {
@@ -103,6 +92,10 @@ multi sub MAIN (
$p1.put: "Number: " ~ $num;
$p1.put: "";
print-basic-stats($p1, @logs.grep(*.[1] eqv $num));
+
+ for @logs.map(*.[3].year).unique -> $year {
+ print-yearly-record($p1, @logs, $year);
+ }
}
$p1.select-first;
}
@@ -111,6 +104,20 @@ multi sub MAIN (
ui.shutdown;
}
+sub print-yearly-record($p1, @logs, $year) {
+ constant $fmt = 16;
+ my Str @month-name = <Month January February March April May June
+ July August September October November December>;
+ $p1.put: "";
+ $p1.put: "Year: " ~ $year;
+ with @logs.grep(*.[3].year eqv $year).cache {
+ for .map(*.[3].month).unique.sort -> $month {
+ $p1.put: " %-*s %s".sprintf($fmt, @month-name[$month] ~ ":",
+ seconds-to-str(.grep(*.[3].month eqv $month).map(*.[4]).sum));
+ }
+ }
+}
+
sub print-basic-stats($p1, @logs) {
constant $fmt = 16;
with @logs {