X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/0ce340cab76ae8f6d0450f513843c80901dd5eb3..aeb47e7600bf4e34a37f3ebfe0e6edc534d92147:/latin.plp diff --git a/latin.plp b/latin.plp index 5484624..94b583c 100644 --- a/latin.plp +++ b/latin.plp @@ -2,7 +2,7 @@ Html({ title => 'latin alphabet cheat sheet', - version => 'v1.0', + version => 'v1.1', description => [ ], keywords => [qw' @@ -11,6 +11,7 @@ Html({ cursive fraktur blind deaf '], stylesheet => [qw'light dark red'], + data => ['writing-latn.inc.pl'], }); :> @@ -23,8 +24,8 @@ Html({ font-family: Gallaudet; src: url("/gallaudet.ttf"); } - .glyphs tr:first-child+tr td.di-a { font-family: Suetterlin } - .glyphs tr:first-child+tr+tr td.di-a { font-family: Gallaudet } + .glyphs tr:first-child+tr td { font-family: Suetterlin } + .glyphs tr:first-child+tr+tr td { font-family: Gallaudet }

Latin alphabet

@@ -39,7 +40,8 @@ use Shiar_Sheet::FormatChar; my $glyphs = Shiar_Sheet::FormatChar->new; unless (exists $get{v}) { $glyphs->{unicode}--; - $glyphs->{digraph}--; + $glyphs->{anno} = []; + $glyphs->{style} = 0; } my %scriptname = ( @@ -48,11 +50,12 @@ my %scriptname = ( ase => 'ASL shapes', brai => 'Braille', morse => 'Morse', + tap => 'Tap code', ); 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([map {