colored header like values

[barcat.git] / barcat

diff --git a/barcat b/barcat
index 268c993db3a76b223e04114c6506489b727e5c25..4f723569c04f91d581cd2dc26e0e69820e7aac38 100755 (executable)
--- a/barcat
+++ b/barcat
@@ -193,7 +193,13 @@ sub sival {
        );
 }
 
-say sprintf '%*s-+%*s-+', $lenval, $minval, $size * ($maxval - $minval) - 3, $maxval if $opt{header};
+say(
+       color(31), sprintf('%*s', $lenval, $minval),
+       color(90), '-', color(36), '+',
+       color(32), sprintf('%*s', $size * ($maxval - $minval) - 3, $maxval),
+       color(90), '-', color(36), '+',
+       color(0),
+) if $opt{header};
 
 while ($nr <= $#lines) {
        $nr >= $opt{hidemax} and last if defined $opt{hidemax};