X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/0ce340cab76ae8f6d0450f513843c80901dd5eb3..72ef3ad273de92b0d5572562beb62d3b9039c605:/latin.plp diff --git a/latin.plp b/latin.plp index 5484624..8dab21a 100644 --- a/latin.plp +++ b/latin.plp @@ -11,6 +11,7 @@ Html({ cursive fraktur blind deaf '], stylesheet => [qw'light dark red'], + data => ['writing-latn.inc.pl'], }); :> @@ -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 {