colored header like values

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};

diff --git a/t/t1901-technicolor_-cs_--header.out b/t/t1901-technicolor_-cs_--header.out
index e1d4a415618443e9bc78d54c68962fbfb442226e..a08916e1fb50b9e8a36394420869bde39d9c6feb 100644 (file)
--- a/t/t1901-technicolor_-cs_--header.out
+++ b/t/t1901-technicolor_-cs_--header.out
@@ -1,4 +1,4 @@
-         -3-+                  2-+
+\e[31m         -3\e[90m-\e[36m+\e[32m                  2\e[90m-\e[36m+\e[0m
 \e[31m         -3\e[0m       
 \e[90m     -2.449\e[0m       --
 \e[90m         -2\e[0m       ----