ignore length of valueless lines in padding

[barcat.git] / graph

diff --git a/graph b/graph
index 41d858a0bdbbf52159f3dc06797ed24f13d4d2cf..c069dd3d49d145f6b9f3b652dd2f23dd79667b55 100755 (executable)
--- a/graph
+++ b/graph
@@ -16,6 +16,7 @@ sub podexit {
 my %opt;
 GetOptions(\%opt,
        'color|c!',
+       'C' => sub { $opt{color} = 0 },
        'interval|t:i',
        'trim|length|l=s' => sub {
                my ($optname, $optval) = @_;
@@ -77,7 +78,7 @@ my $maxval = $order[0];
 my $minval = min $order[-1], 0;
 my $lenval = max map { length } @order;
 my $len    = defined $opt{trim} && $opt{trim} <= 0 ? -$opt{trim} + 1 :
-       1 + max map { length } @lines;  # left padding
+       1 + max map { length $values[$_] && length $lines[$_] } 0 .. $#lines;  # left padding
 my $size   = ($maxval - $minval) &&
        ($opt{width} - $lenval - $len) / ($maxval - $minval);  # bar multiplication