X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/5464db21077f6af072bd770f6cb6e907eb48b73d..b1a099f695f80243c53d97c448c98053dcc6effb:/writing.plp?ds=sidebyside diff --git a/writing.plp b/writing.plp index d71dba4..dfd78a4 100644 --- a/writing.plp +++ b/writing.plp @@ -1,52 +1,53 @@ <(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 => 'v1.0', - 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 - '], - stylesheet => [qw'light dark red'], + 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 => ["$include.inc.pl"], }); -:> -
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 { @$_ } grep { ref $_ eq 'ARRAY' } @table ]); -} +my $scriptname = eval { Data('writing-script') }; # optional translations +$_ = showlink($_, "/latin") for $scriptname->{latn} || (); +$_ = showlink($_, "/writing/brahmi") for $scriptname->{brah} || (); + +say $glyphs->table([map { + my $lead = s/^(-)// && $1; + (map { ".>$lead$_" } + $scriptname->{$source.'_'.$_} || $scriptname->{$_} || $_ + ), + @{ $info->{table}->{$_} || [] } +} @{$rows}]); -:>