ignore length of valueless lines in padding
authorMischa POSLAWSKY <perl@shiar.org>
Fri, 6 Sep 2019 22:19:08 +0000 (00:19 +0200)
committerMischa POSLAWSKY <perl@shiar.org>
Sat, 7 Sep 2019 00:07:24 +0000 (02:07 +0200)
Excluded from graph, so do not pad other contents to align.

graph

diff --git a/graph b/graph
index 814486885f5245974c44a5f58c4cc9e93b8f5ded..c069dd3d49d145f6b9f3b652dd2f23dd79667b55 100755 (executable)
--- a/graph
+++ b/graph
@@ -78,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