X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/d494c925843581855627a24887ee3282a49dd514..b1a88e8b8c215a64c86e605de92ae65de4ce014c:/latin.plp?ds=sidebyside diff --git a/latin.plp b/latin.plp index ed68cae..687e082 100644 --- a/latin.plp +++ b/latin.plp @@ -1,5 +1,4 @@ <(common.inc.plp)><: -use 5.014; Html({ title => 'latin alphabet cheat sheet', @@ -12,51 +11,109 @@ 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 " |