digits: separate page from writing

diff --git a/digits.plp b/digits.plp
new file mode 100644 (file)
index 0000000..f688d05
--- /dev/null
+++ b/digits.plp
@@ -0,0 +1,49 @@
+<(common.inc.plp)><:
+
+Html({
+       title => 'digit characters 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'],
+       data => [qw'writing-digits.inc.pl'],
+});
+
+:>
+<h1>Writing systems</h1>
+
+<p>Also see comparison of <a href="/writing">writing systems</a>.</p>
+
+<div class="section">
+
+<:
+use Shiar_Sheet::FormatChar;
+my $glyphs = Shiar_Sheet::FormatChar->new;
+unless (exists $get{v}) {
+       $glyphs->{unicode}--;
+       $glyphs->{anno}  = [];
+       $glyphs->{style} = 0;
+}
+
+my $scriptname = do 'writing-script.inc.pl';
+$_ = qq{<a href="/latin">$_</a>} for $scriptname->{latn} || ();
+
+my @table = do "writing-digits.inc.pl";
+die "Table data not found: <em>$_</em>.\n" for $! || $@ || ();
+
+$glyphs->print([map {
+       ref $_ eq 'ARRAY' ? @{$_} : map { ".>$_" }
+               $scriptname->{"digits_$_"} || $scriptname->{$_} || $_
+} @table]);
+
+:></div>
+
+<hr>
+

diff --git a/writing.plp b/writing.plp
index d6269e84d760c2ff60ee24ea7003266842d5f239..a8bf630a9684ef7555b9cad722d163b535d55fb5 100644 (file)
--- a/writing.plp
+++ b/writing.plp
@@ -39,7 +39,6 @@ $_ = qq{<a href="/latin">$_</a>} for $scriptname->{latn} || ();
 for (
        [phnx => 'Phoenician'],
        [brah => 'Brahmi'],
 for (
        [phnx => 'Phoenician'],
        [brah => 'Brahmi'],

-       [digits => 'Digits'],

 ) {
        my ($source, $title) = @$_;
        my @table = do "writing-$source.inc.pl";
 ) {
        my ($source, $title) = @$_;
        my @table = do "writing-$source.inc.pl";