colored values in summary stats
authorMischa POSLAWSKY <perl@shiar.org>
Tue, 10 Sep 2019 22:00:41 +0000 (00:00 +0200)
committerMischa POSLAWSKY <perl@shiar.org>
Thu, 12 Sep 2019 15:48:11 +0000 (17:48 +0200)
barcat

diff --git a/barcat b/barcat
index 4cb2cd14ce69467cb6767f063100c6774cef328b..1818493a8af4603898a2e4b7f1265c6bcfda948d 100755 (executable)
--- a/barcat
+++ b/barcat
@@ -220,10 +220,13 @@ if ($opt{stat}) {
        }
        if (@order) {
                my $total = sum @order;
-               printf '%s total', $total;
+               printf '%s total', color(1) . $total . color(0);
                printf ' in %d values', scalar @values;
-               printf ' (%s min, %*.*f avg, %s max)',
-                       $order[-1], 0, 2, $total / @order, $order[0];
+               printf(' (%s min, %s avg, %s max)',
+                       color(31) . $order[-1] . color(0),
+                       color(36) . (sprintf '%*.*f', 0, 2, $total / @order) . color(0),
+                       color(32) . $order[0] . color(0),
+               );
        }
        say '';
 }