X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/4b71762936d38dfebc9aa8093777e44aad5b41ab..f00f148c4e56bde702d316dd591934adbb4f6232:/latin.plp?ds=sidebyside
diff --git a/latin.plp b/latin.plp
index cac0e92..70c9b05 100644
--- a/latin.plp
+++ b/latin.plp
@@ -48,28 +48,35 @@ Also see related alphabets
and font comparison.
<:
-use List::Util qw( pairs );
-
-my @table = Data('writing-latn');
+my $table = Data('writing-latn');
{
say '';
say '\n";
+}
- my %VOWELCOLS = (map { ($_ => 1) } 0, 4, 8, 14, 20, 24);
- say '
';
- say '# ASCII â 64';
- print ' | ', $_ for 1 .. 26;
- say ' |
';
+my %VOWELCOLS = (map { ($_ => 1) } 0, 4, 8, 14, 20, 24);
+say '';
+say '';
+printtr('order');
+say '';
+printtr('default');
+say "
";
- for my $row (pairs @table) {
- my ($id, $info) = @{$row};
+sub printtr {
+ for my $id (@_) {
+ my $info = $table->{$id};
+
+ if (ref $info eq 'ARRAY') {
+ printtr(@{$info});
+ next;
+ }
printf '', $id;
my $th = 'th';
@@ -105,7 +112,6 @@ my @table = Data('writing-latn');
say;
}
}
- say "
";
}
:>