X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/dfb97641f69972c016320553556086d5a66e7606..133e96335267b12bb7e97d9bbe551a3a043bd32a:/keyboard/altgr/index.inc.plp
diff --git a/keyboard/altgr/index.inc.plp b/keyboard/altgr/index.inc.plp
index 208cae2..e9179c6 100644
--- a/keyboard/altgr/index.inc.plp
+++ b/keyboard/altgr/index.inc.plp
@@ -120,7 +120,8 @@ push @incs, @{ $idx->{$_} } for @{ $idx->{default} };
my @sample = split /(?VERSION(3.00);
+use List::Util qw( uniq max sum );
my %caticon = (
legacy => qq{\N{TOP HAT}},
@@ -136,16 +137,15 @@ if (@sample) {
print "
$_" for @sample;
say '';
}
-my %idx = map {($_ => scalar eval{ Data("$dirbase/$_.eng") })} @incs;
-my $most = max(map { scalar keys %{$_->{def}{''}} } values %idx);
+my $most = max(map { sum values %{ $_->{inventory}{''} } } %{$idx}{@incs});
for my $inc (@incs) {
+ my $table = $idx->{$inc};
print @sample ? ' | ' : ' |
';
}
}