From: Mischa POSLAWSKY <perl@shiar.org>
Date: Thu, 19 Sep 2019 12:38:03 +0000 (+0200)
Subject: color headers
X-Git-Url: http://git.shiar.net/barcat.git/commitdiff_plain/3eee37b010b7e1a9539750ba99800ac19333489c

color headers
---

diff --git a/barcat b/barcat
index 05b7cb1..fd110c5 100755
--- 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};