X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/b72093417bc56491451ccee26c93f3e5c73c97eb..bac74b5934f22cc3d0e971d26fe0275f7f5db7b3:/latin.plp diff --git a/latin.plp b/latin.plp index 2809d7e..9dd8fe9 100644 --- a/latin.plp +++ b/latin.plp @@ -2,39 +2,60 @@ 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 + 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'], + data => ['writing-latn.inc.pl'], }); :> + +

Latin alphabet

-

Also see other alphabets +

Variant encodings of the common ASCII (latin, roman, +or 'mercan) letters A–Z. +Also see related alphabets and common chars.

-
+
<: -use Shiar_Sheet::FormatChar; -my $glyphs = Shiar_Sheet::FormatChar->new; -unless (exists $get{v}) { - $glyphs->{unicode}--; - $glyphs->{digraph}--; -} - my @table = do 'writing-latn.inc.pl'; if ($! or $@) { - printf "

Table data not found: %s.

\n", $! || $@; + printf "

Table data not found: %s.

\n", $@ || $!; } else { - print $glyphs->table(exists $get{uc} ? [map {s/\s.//; uc} @table] : \@table); + say ''; + print ref $_ ne 'ARRAY' ? "
$_\n" : map {/^$_\n"} @$_ + for @table; + say "
\n"; } -print "
\n"; +:>