From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 21 May 2024 19:31:51 +0000 (+0200)
Subject: keyboard/altgr/index: calculate maximum inventory without names
X-Git-Url: http://git.shiar.net/sheet.git/commitdiff_plain/da56f674f1b9ed64adbcae060113733b023fa5c9

keyboard/altgr/index: calculate maximum inventory without names

Code cleanup.
---

diff --git a/keyboard/altgr/index.inc.plp b/keyboard/altgr/index.inc.plp
index 5491df8..c6accc7 100644
--- a/keyboard/altgr/index.inc.plp
+++ b/keyboard/altgr/index.inc.plp
@@ -139,7 +139,9 @@ if (@sample) {
 	print "<th>$_" for @sample;
 	say '</tr></thead>';
 }
-my $most = max(map { sum values %{ $_->{inventory}{''} } } %{$idx}{@incs});
+my $most = max(
+	map { sum values %{$_} } map { $_->{inventory}{''} } @{$idx}{@incs}
+);
 for my $inc (@incs) {
 	my $table = $idx->{$inc};
 	print @sample ? '<tr><th>' : '<figure>';