From 987ab3466b164a9eb3061b5c35c6ae8c86e922a0 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sun, 16 Apr 2017 17:39:56 +0200
Subject: [PATCH] digits: customise page intro and metadata

---
 digits.plp | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/digits.plp b/digits.plp
index b2b4e09..10625a5 100644
--- a/digits.plp
+++ b/digits.plp
@@ -4,24 +4,24 @@ Html({
 	title => 'digit characters sheet',
 	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]);
-- 
2.30.0