'spark:s' => sub {
$opt{spark} = [split //, $_[1] || '▁▂▃▄▅▆▇█'];
},
- 'palette:s' => sub {
- $opt{palette} = [ split /\s/, $_[1] ];
+ 'palette=s' => sub {
+ $opt{palette} = {
+ fire => [qw( 90 31 91 33 93 97 96 )],
+ whites => [qw( 1;30 0;37 1;37 )],
+ }->{$_[1]} // [ split /\s/, $_[1] ];
},
'stat|s!',
'signal-stat=s',
while ($nr <= $#lines) {
$nr >= $opt{hidemax} and last if defined $opt{hidemax};
my $val = $values[$nr];
+ my $rel = length $val && ($val - $minval) / ($maxval - $minval);
if ($opt{spark}) {
- print $opt{spark}->[ ($val - $minval) / $maxval * $#{$opt{spark}} ];
+ print color($opt{palette}->[ $rel * $#{$opt{palette}} ]) if $opt{palette};
+ print $opt{spark}->[ $rel * $#{$opt{spark}} ];
next;
}
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];
+ $opt{palette}->[ $rel * ($#{$opt{palette}} - 1) + 1 ];
$val = $opt{units} ? sival($val) : sprintf "%*s", $lenval, $val;
color($color) for $val;
}
continue {
$nr++;
}
-say '' if $opt{spark};
+say $opt{palette} ? color(0) : '' if $opt{spark};
}
to the largest value encountered.
These options can be set to customize this range.
-=item --palette=<color>...
+=item --palette=(<preset> | <color>...)
Override colors of parsed numbers.
Can be any CSI escape, such as I<90> for default dark grey,