From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 26 Nov 2022 13:21:36 +0000 (+0100)
Subject: apply hide limits in length calculation
X-Git-Tag: v1.10~24
X-Git-Url: http://git.shiar.nl/barcat.git/commitdiff_plain/e1677f5ff98c942aa9758da02b7d4336b3dfe46b

apply hide limits in length calculation
---

diff --git a/barcat b/barcat
index 431ed40..bf38f12 100755
--- a/barcat
+++ b/barcat
@@ -239,8 +239,8 @@ my $range = $maxval - $minval;
 $range &&= log $range if $opt{log};
 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[$_] }
-		0 .. min $#lines, $opt{hidemax} || ();  # left padding
+	max(map { length $values[$_] && length $lines[$_] } $nr .. $limit)
+	// 0;  # left padding
 my $size   = defined $opt{width} && $range &&
 	($opt{width} - $lenval - $len - !!$opt{indicators});  # bar multiplication
 
diff --git a/t/t1503-partial.out b/t/t1503-partial.out
index 2f913c5..d3965d7 100644
--- a/t/t1503-partial.out
+++ b/t/t1503-partial.out
@@ -1,3 +1,3 @@
 barcat -L1-2 input/aligned.txt
-  1           -------------
-  2 prepend   --------------------------
+  1         --------------
+  2 prepend ----------------------------