git.shiar.nl
/
barcat.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
3f7e3fb
)
value color in spark mode
author
Mischa POSLAWSKY
<perl@shiar.org>
Mon, 23 Sep 2019 23:39:23 +0000
(
01:39
+0200)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Tue, 24 Sep 2019 00:08:51 +0000
(
02:08
+0200)
barcat
patch
|
blob
|
history
diff --git
a/barcat
b/barcat
index c5b7e0af73580e4a1015feed224d281dcdb9ef84..8e23b074d486377182938b168a3f5605feab0814 100755
(executable)
--- a/
barcat
+++ b/
barcat
@@
-236,9
+236,13
@@
while ($nr <= $#lines) {
$nr >= $opt{hidemax} and last if defined $opt{hidemax};
my $val = $values[$nr];
my $rel = length $val && ($val - $minval) / ($maxval - $minval);
$nr >= $opt{hidemax} and last if defined $opt{hidemax};
my $val = $values[$nr];
my $rel = length $val && ($val - $minval) / ($maxval - $minval);
+ 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 ];
if ($opt{spark}) {
if ($opt{spark}) {
- print $opt{spark}->[
+ print
color($color),
$opt{spark}->[
!$val ? 0 : # blank
$val == $order[0] ? -1 : # max
$val == $order[-1] ? 1 : # min
!$val ? 0 : # blank
$val == $order[0] ? -1 : # max
$val == $order[-1] ? 1 : # min
@@
-249,10
+253,6
@@
while ($nr <= $#lines) {
}
if (length $val) {
}
if (length $val) {
- my $color = !$opt{palette} ? undef :
- $val == $order[0] ? $opt{palette}->[-1] : # max
- $val == $order[-1] ? $opt{palette}->[0] : # min
- $opt{palette}->[ $rel * ($#{$opt{palette}} - 1) + 1 ];
$val = $opt{units} ? sival($val) : sprintf "%*s", $lenval, $val;
color($color) for $val;
}
$val = $opt{units} ? sival($val) : sprintf "%*s", $lenval, $val;
color($color) for $val;
}