X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/3f794dd1016611b2972115a97624b41e1dd56a6c..153ec1421ef059026fb8fbf208a46cb462d27575:/latin.plp
diff --git a/latin.plp b/latin.plp
index a83bc0d..68e6a83 100644
--- a/latin.plp
+++ b/latin.plp
@@ -2,7 +2,7 @@
Html({
title => 'latin alphabet cheat sheet',
- version => 'v1.1',
+ version => '1.2',
description => [
],
keywords => [qw'
@@ -20,7 +20,7 @@ Html({
font-family: Suetterlin; /* R. G. Arens */
src: url("/suetterlin.ttf");
}
- .glyphs tr:first-child+tr td { font-family: Suetterlin }
+ .glyphs tr:first-child+tr+tr td { font-family: Suetterlin }
<:
-use Shiar_Sheet::FormatChar;
-my $glyphs = Shiar_Sheet::FormatChar->new;
-unless (exists $get{v}) {
- $glyphs->{unicode}--;
- $glyphs->{anno} = [];
- $glyphs->{style} = 0;
-}
-
-my %scriptname = (
- latn => 'Latin',
- latnuc => 'Uppercase',
- latnlc => 'Lowercase',
- latfsuet => 'Sütterlin',
- asl => '
ASL', # American manual alphabet
- brai => 'Braille',
- morse => 'Morse',
- tap => 'Tap code',
- taps => 'Tap simplified',
- ics => 'Maritime flags', # International Code of Signals
- sem => 'Flag semaphore',
- semc => 'Chappe semaphore',
- pigpen => 'Pigpen',
- wingdings=> 'Wingdings',
- code39 => 'Code 39', # ISO/IEC 16388
- rm4scc => '
RM4SCC',
- colour => 'Chromacons', # Colour Alphabet by Paul Green-Armytage (2010)
-);
-
my @table = do 'writing-latn.inc.pl';
if ($! or $@) {
printf "
Table data not found: %s.
\n", $@ || $!;
}
else {
- print $glyphs->table([map {
- ref $_ ne 'ARRAY' ? ".>$scriptname{$_}"
- : exists $get{uc} ? map {uc} @$_ : @$_
- } @table]);
+ print '
';
+ print ref $_ ne 'ARRAY' ? "$_" : map {/^ | $_"} @$_ for @table;
+ print " |
---|
\n\n";
}
print "
\n";