X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/a337e0adc7d8b1cfab4cb85d4620f6fd223c1aa4..4481ab42a10ea48159274387ca93c17840e8c850:/latin.plp?ds=sidebyside
diff --git a/latin.plp b/latin.plp
index 17d7104..8ad53c0 100644
--- a/latin.plp
+++ b/latin.plp
@@ -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',
- wingdings=> 'Wingdings',
- code39 => 'Code 39', # ISO/IEC 16388
- rm4scc => '
RM4SCC',
-);
-
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";