X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/165a497847540665bc2e4063b3d73b6c7c36b1df..3f38a7192491a73a1527179cdd68218f023aed61:/writing.plp diff --git a/writing.plp b/writing.plp index a12c1f9..5691082 100644 --- a/writing.plp +++ b/writing.plp @@ -14,7 +14,6 @@ Html({ writing script glyph unicode character letter comparison history alphabet sample test language multilingual )], - stylesheet => [qw'light circus dark red mono'], data => ["$include.inc.pl"], }); @@ -40,12 +39,11 @@ $_ = showlink($_, "/latin") for $scriptname->{latn} || (); $_ = showlink($_, "/writing/brahmi") for $scriptname->{brah} || (); say $glyphs->table([map { - my $ref = $_; - my $lead = s/^(-)// && $1; - (map { ".>$lead$_" } - $scriptname->{$source.'_'.$_} || $scriptname->{$_} || $_ - ), - @{ $info->{table}->{$ref} || [] } + my $lead = s/^(-)// && $1; + (map { ".>$lead$_" } + $scriptname->{$source.'_'.$_} || $scriptname->{$_} || $_ + ), + @{ $info->{table}->{$_} || [] } } @{$rows}]); say "\n";