X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/e243ba6955889ecb639cd547e1420520527b9d3e..c0cc7ea9c5b3a270b1b594a682b0e71b9e500dcf:/latin.plp?ds=sidebyside diff --git a/latin.plp b/latin.plp index cab913e..687e082 100644 --- a/latin.plp +++ b/latin.plp @@ -11,75 +11,22 @@ 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 font comparison.
@@ -113,23 +59,52 @@ if ($! or $@) { Alert("Table data not found", $@ || $!); } else { + say '\n"; + + my %VOWELCOLS = (map { ($_ => 1) } 0, 4, 8, 14, 20, 24); say '# ASCII â 64'; + print ' | ', $_ for 1 .. 26; + say ' |
---|---|
', $title; + my ($id, $info) = @{$row}; + + printf ' | |
', $info->{title} // ucfirst $id; + my $colspan = 1; - for (@{$cells}) { + 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; } - print ' class=', $_ ? 'ex' : 'u-invalid' if s/^-//; + printf ' class="%s"', "@class" if @class; print '>'; say; } @@ -139,45 +114,6 @@ else { :> - + - |