color headers pu
authorMischa POSLAWSKY <perl@shiar.org>
Thu, 19 Sep 2019 12:38:03 +0000 (14:38 +0200)
committerMischa POSLAWSKY <perl@shiar.org>
Thu, 19 Sep 2019 12:38:03 +0000 (14:38 +0200)
barcat

diff --git a/barcat b/barcat
index 05b7cb182eada1d57ea6cd2d64e729796eba4de7..fd110c5d14f127da94c86a8828c54965eef15a24 100755 (executable)
--- a/barcat
+++ b/barcat
@@ -193,7 +193,13 @@ sub sival {
        );
 }
 
-say sprintf ' %*s-+%*s-+', $len, $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};