X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/b22f63ba31441200ca915c64445d5a87d146c327..b1a099f695f80243c53d97c448c98053dcc6effb:/writing.plp?ds=inline diff --git a/writing.plp b/writing.plp index a718c88..dfd78a4 100644 --- a/writing.plp +++ b/writing.plp @@ -1,32 +1,32 @@ <(common.inc.plp)><: +my $source = lc $Request || 'phnx'; +$source =~ s/^brah\Kmi$//; +my $include = "writing-$source"; + +my $info = eval { Data($include) } || {}; + Html({ - title => 'writing system inheritance sheet', - version => '1.2', - description => [ - "Character comparison,", - "tracking letters as they evolve from Phoenician to modern scripts.", - "Good Unicode test sample.", - ], - keywords => [qw' - script glyph unicode writing comparison character alphabet letter - history phoenician latin sample test language multilingual - '], + title => $info->{pagetitle} || "$info->{title} scripts comparison sheet", + version => $info->{version} || '0.1', + description => $info->{description}, + keywords => [@{ $info->{keywords} // []}, qw( + writing script glyph unicode character letter comparison history + alphabet sample test language multilingual + )], stylesheet => [qw'light circus dark red mono'], - data => [qw'writing-phnx.inc.pl'], + data => ["$include.inc.pl"], }); -:> -
-Comparison of Unicode letters in related alphabets. -Also see charsets -and common chars.
+my $rows = $info->{list} or Abort( + "Requested script parent$sourcenot available", + '404 request not found', +); -
$_
" for $info->{intro} || (); +say 'Table data not found: %s.
\n", $@ || $!; - next; - } - $glyphs->print($title => [map { - my $lead = s/^(-)// && $1; - ref $_ eq 'ARRAY' ? @$_ : map { ".>$lead$_" } - $scriptname->{$source.'_'.$_} || $scriptname->{$_} || $_ - } @table]); -} +my $scriptname = eval { Data('writing-script') }; # optional translations +$_ = showlink($_, "/latin") for $scriptname->{latn} || (); +$_ = showlink($_, "/writing/brahmi") for $scriptname->{brah} || (); -:>unicode 1.1 - | 20th century - | in 6.0 (2010) - | recent assignments - | proposed - | irregular - |