X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/bac74b5934f22cc3d0e971d26fe0275f7f5db7b3..324a5fe7324c7717199f263b4ccd003953ae1334:/latin.plp?ds=inline diff --git a/latin.plp b/latin.plp index 9dd8fe9..25d8b10 100644 --- a/latin.plp +++ b/latin.plp @@ -11,51 +11,110 @@ Html({ secret cursive fraktur blind braille morse deaf asl hand barcode bar color semaphore flag '], - stylesheet => [qw'light dark red'], + stylesheet => [qw( light dark red mono )], data => ['writing-latn.inc.pl'], }); :>
Variant encodings of the common ASCII (latin, roman, +
Variant encodings of the common ASCII (latin, roman, or 'mercan) letters AâZ. Also see related alphabets -and common chars.
+and font comparison.Table data not found: %s.
\n", $@ || $!; + Alert("Table data not found", $@ || $!); } else { + say '\n"; + + my %VOWELCOLS = (map { ($_ => 1) } 0, 4, 8, 14, 20, 24); say '$_\n" : map {/^ | $_\n"} @$_
- for @table;
+ say '# ASCII â 64';
+ print ' | ', $_ for 1 .. 26;
+ say ' | |
---|---|---|---|
', $info->{title} // ucfirst $id; + + my $colspan = 1; + my $col = 0; + for (@{ $info->{list} }) { + $col++; + if ($_ eq '>') { + $colspan++; + next; + } + my @class; + push @class ,'l0' if $VOWELCOLS{$col - $colspan}; + push @class, $_ ? 'ex' : 'u-invalid' if s/^-//; + + print "\t | 26) { + # special character for sample generation + print ' hidden'; # sample only + } + else { + print ' title=', chr($col + ord('A') - $colspan); + } + if ($colspan > 1) { + print " colspan=$colspan"; + $colspan = 1; + } + printf ' class="%s"', "@class" if @class; + print '>'; + say; + } + } say " |