X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/ca7123f5e6439a6726d2c603d5f51bc390916d8f..7178c19ec55db35dc1d073aef9a20138b15b19d7:/writing.plp?ds=sidebyside diff --git a/writing.plp b/writing.plp index a8bf630..2c67ae0 100644 --- a/writing.plp +++ b/writing.plp @@ -2,7 +2,7 @@ Html({ title => 'writing system inheritance sheet', - version => 'v1.0', + version => '1.3', description => [ "Character comparison,", "tracking letters as they evolve from Phoenician to modern scripts.", @@ -12,14 +12,16 @@ Html({ script glyph unicode writing comparison character alphabet letter history phoenician latin sample test language multilingual '], - stylesheet => [qw'light dark red'], + stylesheet => [qw'light circus dark red mono'], data => [qw'writing-phnx.inc.pl'], }); :>
Also see charsets +
+Comparison of Unicode letters in related alphabets. +Also see charsets and common chars.
Table data not found: %s.
\n", $! || $@; + my $info = eval { Data("writing-$source") } or do { + say "%s: %s.
\n", @{$@}; next; - } + }; + my $rows = $info->{list} or next; $glyphs->print($title => [map { - ref $_ eq 'ARRAY' ? @$_ : map { ".>$_" } + my $ref = $_; + my $lead = s/^(-)// && $1; + (map { ".>$lead$_" } $scriptname->{$source.'_'.$_} || $scriptname->{$_} || $_ - } @table]); + ), + @{ $info->{table}->{$ref} || [] } + } @{$rows}]); } -:>