X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/58725794d72361cc70cb082476a32d08e22d21d0..refs/tags/v1.19:/writing.plp?ds=inline diff --git a/writing.plp b/writing.plp index 82049fe..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.3', - 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 '%s: %s.
\n", @{$@}; - next; - }; - $glyphs->print($title => [map { - my $lead = s/^(-)// && $1; - ref $_ eq 'ARRAY' ? @$_ : map { ".>$lead$_" } - $scriptname->{$source.'_'.$_} || $scriptname->{$_} || $_ - } @table]); -} +$_ = showlink($_, "/writing/brahmi") for $scriptname->{brah} || (); + +say $glyphs->table([map { + my $lead = s/^(-)// && $1; + (map { ".>$lead$_" } + $scriptname->{$source.'_'.$_} || $scriptname->{$_} || $_ + ), + @{ $info->{table}->{$_} || [] } +} @{$rows}]); say "