X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/9bac941bab9e3f034f43e86f36aafb11b0350cdb..b13bb406f89eaebf04c8fd8ffe69cde30d5aa0bd:/writing.plp diff --git a/writing.plp b/writing.plp index 5308df7..dfd78a4 100644 --- a/writing.plp +++ b/writing.plp @@ -1,58 +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 { - ref $_ eq 'ARRAY' ? @$_ : map { ".>$_" } - $scriptname->{$source.'_'.$_} || $scriptname->{$_} || $_ - } @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}]); -:>