X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/0dd2b5ce328daf14b51f94c951acef2ca40a5fd4..97470ff139fad2f054a82fb40c13a62d0ac0f15d:/latin.plp?ds=sidebyside diff --git a/latin.plp b/latin.plp index 1208b2d..70c9b05 100644 --- a/latin.plp +++ b/latin.plp @@ -2,63 +2,121 @@ Html({ title => 'latin alphabet cheat sheet', - version => 'v1.1', + version => '1.6', 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.
<: -use Shiar_Sheet::FormatChar; -my $glyphs = Shiar_Sheet::FormatChar->new; -unless (exists $get{v}) { - $glyphs->{unicode}--; - $glyphs->{anno} = []; - $glyphs->{style} = 0; +my $table = Data('writing-latn'); +{ + say 'Table data not found: %s.
\n", $@ || $!; -} -else { - print $glyphs->table([map { - ref $_ ne 'ARRAY' ? ".>$scriptname{$_}" - : exists $get{uc} ? map {uc} @$_ : @$_ - } @table]); +sub printtr { + for my $id (@_) { + my $info = $table->{$id}; + + if (ref $info eq 'ARRAY') { + printtr(@{$info}); + next; + } + + printf '