'indicators:s',
'palette=s' => sub {
$opt{palette} = {
+ '' => [],
fire => [qw( 90 31 91 33 93 97 96 )],
fire256=> [map {"38;5;$_"} qw(
235 52 88 124 160 196
(map { 201 - $_ } 0..4), # -b
196,
],
- }->{$_[1]} // [ split /[^0-9;]/, $_[1] ];
+ }->{$_[1]} // do {
+ my @vals = split /[^0-9;]/, $_[1]
+ or die "Empty palette resulting from \"$_[1]\"\n";
+ \@vals;
+ };
},
'stat|s!',
'signal-stat=s',
}
$opt{width} ||= $ENV{COLUMNS} || qx(tput cols) || 80 unless $opt{spark};
-$opt{color} //= -t *STDOUT; # enable on tty
+$opt{color} //= $ENV{NO_COLOR} ? 0 : -t *STDOUT; # enable on tty
$opt{'graph-format'} //= '-';
$opt{trim} *= $opt{width} / 100 if $opt{trimpct};
$opt{units} = [split //, ' kMGTPEZYyzafpn'.($opt{ascii} ? 'u' : 'μ').'m']
while ($nr <= $limit) {
my $val = $values[$nr];
- my $rel = length $val && $range && ($val - $minval) / $range;
+ my $rel = length $val && $range && min(1, ($val - $minval) / $range);
my $color = !length $val || !$opt{palette} ? undef :
$val == $order[0] ? $opt{palette}->[-1] : # max
$val == $order[-1] ? $opt{palette}->[0] : # min
$opt{palette}->[ $rel * ($#{$opt{palette}} - 1) + 1 ];
my $indicator = $opt{indicators} && $opt{indicators}->[
- !$val || !$#{$opt{indicators}} ? 0 : # blank
+ !length($val) || !$#{$opt{indicators}} ? 0 : # blank
$#{$opt{indicators}} < 2 ? 1 :
$val >= $order[0] ? -1 :
$rel * ($#{$opt{indicators}} - 1e-14) + 1
Force colored output of values and bar markers.
Defaults on if output is a tty,
disabled otherwise such as when piped or redirected.
+Can also be disabled by setting I<-C>
+or the I<NO_COLOR> environment variable.
=item -f, --field=(<number> | <regexp>)