<(common.inc.plp)><:
Html({
title => 'latin alphabet cheat sheet',
version => '1.3',
description => [
],
keywords => [qw'
latin roman alphabet script letter unicode font glyph abc
code encoding spelling symbol writing comparison character
secret cursive fraktur blind braille morse deaf asl hand
barcode bar color semaphore flag
'],
stylesheet => [qw'light dark red'],
data => ['writing-latn.inc.pl'],
});
:>
Latin alphabet
Variant encodings of the common ASCII (latin, roman,
or 'mercan) letters A–Z.
Also see related alphabets
and common chars.
<:
use List::Util qw( pairs );
my @table = do 'writing-latn.inc.pl';
if ($! or $@) {
Alert("Table data not found", $@ || $!);
}
else {
say '
';
for my $row (pairs @table) {
my ($title, $cells) = @{$row};
printf '', (lc $title) =~ s/<[^>]+>//gr =~ s/\s+/-/gr;
say '| ', $title;
my $colspan = 1;
for (@{$cells}) {
if ($_ eq '>') {
$colspan++;
next;
}
print "\t 1) {
print " colspan=$colspan";
$colspan = 1;
}
print ' class=', $_ ? 'ex' : 'u-invalid' if s/^-//;
print '>';
say;
}
}
say " |
\n";
}
:>