From 3eee37b010b7e1a9539750ba99800ac19333489c Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Thu, 19 Sep 2019 14:38:03 +0200
Subject: [PATCH] color headers

---
 barcat | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

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