X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/4222fe2b6b5f358e639c9f86e01ac048bc04d824..b690e02814ec7b65b10789fac83cd7c8b2b72b30:/latin.plp?ds=inline diff --git a/latin.plp b/latin.plp index e6ef7a2..687e082 100644 --- a/latin.plp +++ b/latin.plp @@ -2,68 +2,118 @@ Html({ title => 'latin alphabet cheat sheet', - version => 'v1.1', + version => '1.3', description => [ ], keywords => [qw' latin roman alphabet script letter unicode font glyph abc - writing comparison character sample test language spelling - cursive fraktur blind deaf + 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'], + stylesheet => [qw( light dark red mono )], data => ['writing-latn.inc.pl'], }); :>
Also see other alphabets -and common chars.
+Variant encodings of the common ASCII (latin, roman, +or 'mercan) letters AâZ. +Also see related alphabets +and font comparison.
-Table data not found: %s.
\n", $@ || $!; + Alert("Table data not found", $@ || $!); } else { - print $glyphs->table([map { - ref $_ ne 'ARRAY' ? ".>$scriptname{$_}" - : exists $get{uc} ? map {uc} @$_ : @$_ - } @table]); + say '\n"; + + my %VOWELCOLS = (map { ($_ => 1) } 0, 4, 8, 14, 20, 24); + 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 " |