X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/e155b6dc4a8a43375d222c6a920a59fceb23e128..9721bc0377fe93bf1c88cca13871740a8bb1c497:/latin.plp diff --git a/latin.plp b/latin.plp index f91055d..46e985f 100644 --- a/latin.plp +++ b/latin.plp @@ -2,65 +2,120 @@ Html({ title => 'latin alphabet cheat sheet', - version => 'v1.0', + 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 " |