X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/024fef82307d7b421c8ec3ebee930b774427a745..77ac3d52d89913a79cca834d882c54a58c15a488:/latin.plp?ds=inline diff --git a/latin.plp b/latin.plp index 4326f55..56f9d03 100644 --- a/latin.plp +++ b/latin.plp @@ -2,7 +2,7 @@ Html({ title => 'latin alphabet cheat sheet', - version => '1.3', + version => '1.4', description => [ ], keywords => [qw' @@ -11,46 +11,41 @@ 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.# ASCII â 64'; + print ' | ', $_ for 1 .. 26; + say ' | ||
---|---|---|---|
', $title; - say "\t", ' | ' x !/^ | ', $id; + my $th = 'th'; + $th .= sprintf ' title="%s"', $_ for $info->{title} || (); + say "<$th>", $info->{name} // 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 " |