X-Git-Url: http://git.shiar.nl/barcat.git/blobdiff_plain/30fb51a784dd9314c6776f18b7189b197be12df3..720f7107e46fc232e470ce02ef9847b9218ab11e:/barcat

diff --git a/barcat b/barcat
index 268c993..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);
 
@@ -193,7 +197,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};
@@ -205,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;
 	}
@@ -367,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>,