X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/3d996ccf6608b325f5c92e988bd576fd1ee6a165..344c5c6bf56aca4d4117ed70dbd007c3f2a5e135:/latin.plp diff --git a/latin.plp b/latin.plp index 7fa0423..c146fcc 100644 --- a/latin.plp +++ b/latin.plp @@ -39,24 +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', - taps => 'Tap simplified', - ics => 'Maritime flags', # International Code of Signals -); - 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]); }