X-Git-Url: http://git.shiar.net/barcat.git/blobdiff_plain/16256d269dab640ae3d7e74e5e6a6de3d154c11f..8cbb99e9ebb13439bde8169f823bb1eb75b43f3c:/graph

diff --git a/graph b/graph
index 41d858a..c069dd3 100755
--- 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