From 3f7e3fb002626412e76a781ba93d12f72562afcc Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 24 Sep 2019 01:22:36 +0200
Subject: [PATCH] spark values for minimum and maximum

Special case first and last matches like colors.
---
 barcat | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/barcat b/barcat
index 804b3b0..c5b7e0a 100755
--- a/barcat
+++ b/barcat
@@ -50,7 +50,7 @@ GetOptions(\%opt,
 		$opt{'graph-format'} = substr $_[1], 0, 1;
 	},
 	'spark:s' => sub {
-		$opt{spark} = [split //, $_[1] || '▁▂▃▄▅▆▇█'];
+		$opt{spark} = [split //, $_[1] || ' ▁▂▃▄▅▆▇█'];
 	},
 	'palette=s' => sub {
 		$opt{palette} = {
@@ -238,8 +238,13 @@ while ($nr <= $#lines) {
 	my $rel = length $val && ($val - $minval) / ($maxval - $minval);
 
 	if ($opt{spark}) {
-		print color($opt{palette}->[ $rel * $#{$opt{palette}} ]) if $opt{palette};
-		print $opt{spark}->[ $rel * $#{$opt{spark}} ];
+		print $opt{spark}->[
+			!$val ? 0 : # blank
+			$val == $order[0] ? -1 : # max
+			$val == $order[-1] ? 1 : # min
+			$#{$opt{spark}} < 3 ? 1 :
+			$rel * ($#{$opt{spark}} - 3) + 2.5
+		];
 		next;
 	}
 
-- 
2.30.0