X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/dfb97641f69972c016320553556086d5a66e7606..0e222da060151bc6aa6d5c82962e5e15cfa12070:/keyboard/altgr/index.inc.plp
diff --git a/keyboard/altgr/index.inc.plp b/keyboard/altgr/index.inc.plp
index 208cae2..67249ec 100644
--- a/keyboard/altgr/index.inc.plp
+++ b/keyboard/altgr/index.inc.plp
@@ -8,7 +8,7 @@ my $indexfile = "$dirbase/index";
Html({
title => "altgr keyboard cheat sheets",
- version => '1.2',
+ version => '1.3',
description => [
"Overview of alternate keyboard modes,",
"offering extended Unicode characters if a modifier key",
@@ -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 ? ' | ' : ' |
';
}
}