X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/463f4330186e284e0515831551b41425df03ad1f..344c5c6bf56aca4d4117ed70dbd007c3f2a5e135:/latin.plp diff --git a/latin.plp b/latin.plp index eb648c3..c146fcc 100644 --- a/latin.plp +++ b/latin.plp @@ -39,22 +39,13 @@ unless (exists $get{v}) { $glyphs->{style} = 0; } -my %scriptname = ( - latn => 'Latin', - latfsuet => 'Sütterlin', - asl => 'ASL', # American manual alphabet - brai => 'Braille', - morse => 'Morse', - tap => 'Tap code', -); - 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{$_}" + ref $_ ne 'ARRAY' ? ".>$_" : exists $get{uc} ? map {uc} @$_ : @$_ } @table]); }