X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/451bf471d1e1b84e74eae3683a433f2d4a979d13..c5df9b21d316da6e6a82feff54be042f503f381d:/writing.plp diff --git a/writing.plp b/writing.plp index d6269e8..9f49a0e 100644 --- a/writing.plp +++ b/writing.plp @@ -39,7 +39,6 @@ $_ = qq{$_} for $scriptname->{latn} || (); for ( [phnx => 'Phoenician'], [brah => 'Brahmi'], - [digits => 'Digits'], ) { my ($source, $title) = @$_; my @table = do "writing-$source.inc.pl"; @@ -49,7 +48,8 @@ for ( next; } $glyphs->print($title => [map { - ref $_ eq 'ARRAY' ? @$_ : map { ".>$_" } + my $lead = s/^(-)// && $1; + ref $_ eq 'ARRAY' ? @$_ : map { ".>$lead$_" } $scriptname->{$source.'_'.$_} || $scriptname->{$_} || $_ } @table]); }