From 720f7107e46fc232e470ce02ef9847b9218ab11e Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Mon, 23 Sep 2019 15:19:04 +0200
Subject: [PATCH] palette option to customize value colors

---
 barcat                      | 22 ++++++++++++++++++----
 t/t0002-usage_-h_|wc_-l.out |  2 +-
 2 files changed, 19 insertions(+), 5 deletions(-)

diff --git a/barcat b/barcat
index 4f72356..8bb7bbd 100755
--- a/barcat
+++ b/barcat
@@ -50,6 +50,9 @@ GetOptions(\%opt,
 	'spark:s' => sub {
 		$opt{spark} = [split //, $_[1] || '▁▂▃▄▅▆▇█'];
 	},
+	'palette:s' => sub {
+		$opt{palette} = [ split /\s/, $_[1] ];
+	},
 	'stat|s!',
 	'signal-stat=s',
 	'unmodified|u!',
@@ -91,6 +94,7 @@ $opt{anchor} //= qr/\A/;
 $opt{'value-length'} = 6 if $opt{units};
 $opt{'value-length'} = 1 if $opt{unmodified};
 $opt{'signal-stat'} //= exists $SIG{INFO} ? 'INFO' : 'QUIT';
+$opt{palette} //= $opt{color} && [31, 90, 32];
 
 my (@lines, @values, @order);
 
@@ -211,10 +215,10 @@ while ($nr <= $#lines) {
 	}
 
 	if (length $val) {
-		my $color = !$opt{color} ? undef :
-			$val == $order[0] ? 32 : # max
-			$val == $order[-1] ? 31 : # min
-			90;
+		my $color = !$opt{palette} ? undef :
+			$val == $order[0] ? $opt{palette}->[-1] : # max
+			$val == $order[-1] ? $opt{palette}->[0] : # min
+			$opt{palette}->[1] // $opt{palette}->[0];
 		$val = $opt{units} ? sival($val) : sprintf "%*s", $lenval, $val;
 		color($color) for $val;
 	}
@@ -373,6 +377,16 @@ or 68% of all entries.
 
 =back
 
+=item --palette=<color>...
+
+Override colors of parsed numbers.
+Can be any CSI escape, such as I<90> for default dark grey,
+or alternatively I<1;30> for bold black.
+
+In case of additional colors,
+the last is used for values equal to the maximum, the first for minima.
+If unspecified, these are green and red respectively (I<31 90 32>).
+
 =item --spark[=<glyphs>]
 
 Replace lines by I<sparklines>,
diff --git a/t/t0002-usage_-h_|wc_-l.out b/t/t0002-usage_-h_|wc_-l.out
index e85087a..f5c8955 100644
--- a/t/t0002-usage_-h_|wc_-l.out
+++ b/t/t0002-usage_-h_|wc_-l.out
@@ -1 +1 @@
-31
+32
-- 
2.30.0