digits: customise page intro and metadata

[sheet.git] / digits.plp

diff --git a/digits.plp b/digits.plp
index ec0d7ff1948a3dc65d839fe1078f2466bded3dc0..10625a5cda0e3cc07f5b5563f5f5b4291d342584 100644 (file)
--- a/digits.plp
+++ b/digits.plp
@@ -2,26 +2,26 @@
 
 Html({
        title => 'digit characters sheet',
-       version => 'v1.0',
+       version => '1.0',
        description => [
-               "Character comparison,",
-               "tracking letters as they evolve from Phoenician to modern scripts.",
-               "Good Unicode test sample.",
+               "Unicode glyphs of numbers 0 to 10 in various scripts.",
        ],
-       keywords => [qw'
-               script glyph unicode writing comparison character alphabet letter
-               history phoenician latin sample test language multilingual
-       '],
-       stylesheet => [qw'light dark red'],
+       keywords => [qw(
+               numeral numerical digit number counting decimal
+               script glyph unicode writing comparison list character
+               history sample test language multilingual
+       )],
+       stylesheet => [qw( light dark circus mono red )],
        data => [qw'writing-digits.inc.pl'],
 });
 
 :>
-<h1>Writing systems</h1>
+<h1>Numerals</h1>
 
-<p>Also see comparison of <a href="/writing">writing systems</a>.</p>
+<p>Digits and numbers counting up to ten
+in various <a href="/writing">writing systems</a>.</p>
 
-<div class="section">
+<div>
 
 <:
 use Shiar_Sheet::FormatChar;
@@ -38,7 +38,7 @@ $_ = qq{<a href="/latin">$_</a>} for $scriptname->{latn} || ();
 my @table = do "writing-digits.inc.pl";
 die "Table data not found: $_\n" for $@ || $! || ();
 
-$glyphs->print([map {
+print $glyphs->table([map {
        ref $_ eq 'ARRAY' ? @{$_} : map { ".>$_" }
                $scriptname->{"digits_$_"} || $scriptname->{$_} || $_
 } @table]);