git.shiar.nl
/
barcat.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
minval/maxval options to override bar range
[barcat.git]
/
barcat
diff --git
a/barcat
b/barcat
index 48e47d1667206a56bdcff7da6b36fbe0807f4fc5..7038f066634216f992b4c9c8ce3f715108ed13ff 100755
(executable)
--- a/
barcat
+++ b/
barcat
@@
-33,6
+33,8
@@
GetOptions(\%opt,
'value-length=i',
'hidemin=i',
'hidemax=i',
'value-length=i',
'hidemin=i',
'hidemax=i',
+ 'minval=f',
+ 'maxval=f',
'limit|L=s' => sub {
my ($optname, $optval) = @_;
$optval ||= 0;
'limit|L=s' => sub {
my ($optname, $optval) = @_;
$optval ||= 0;
@@
-153,8
+155,8
@@
state $nr = $opt{hidemin} ? $opt{hidemin} - 1 : 0;
@lines > $nr or return unless $opt{hidemin};
@order = sort { $b <=> $a } @order unless tied @order;
@lines > $nr or return unless $opt{hidemin};
@order = sort { $b <=> $a } @order unless tied @order;
-my $maxval = ($opt{hidemax} ? max grep { length } @values[0 .. $opt{hidemax} - 1] : $order[0]) // 0;
-my $minval = min $order[-1] // (), 0;
+my $maxval =
$opt{maxval} //
($opt{hidemax} ? max grep { length } @values[0 .. $opt{hidemax} - 1] : $order[0]) // 0;
+my $minval =
$opt{minval} //
min $order[-1] // (), 0;
my $lenval = $opt{'value-length'} // max map { length } @order;
my $len = defined $opt{trim} && $opt{trim} <= 0 ? -$opt{trim} + 1 :
max map { length $values[$_] && length $lines[$_] }
my $lenval = $opt{'value-length'} // max map { length } @order;
my $len = defined $opt{trim} && $opt{trim} <= 0 ? -$opt{trim} + 1 :
max map { length $values[$_] && length $lines[$_] }
@@
-177,8
+179,9
@@
if ($opt{markers} and $size > 0) {
else {
return $func;
}
else {
return $func;
}
- };
- color(36) for $barmark[($pos - $minval) * $size] = $char;
+ } - $minval;
+ $pos >= 0 or next;
+ color(36) for $barmark[$pos * $size] = $char;
}
state $lastmax = $maxval;
}
state $lastmax = $maxval;
@@
-385,6
+388,12
@@
Indicated by default as I<=>.
=back
=back
+=item --min=<number>, --max=<number>
+
+Bars extend from 0 or the minimum value if lower,
+to the largest value encountered.
+These options can be set to customize this range.
+
=item --palette=<color>...
Override colors of parsed numbers.
=item --palette=<color>...
Override colors of parsed numbers.