From ca7123f5e6439a6726d2c603d5f51bc390916d8f Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 3 Apr 2012 21:07:56 +0200
Subject: [PATCH] digits: separate page from writing

---
 digits.plp  | 49 +++++++++++++++++++++++++++++++++++++++++++++++++
 writing.plp |  1 -
 2 files changed, 49 insertions(+), 1 deletion(-)
 create mode 100644 digits.plp

diff --git a/digits.plp b/digits.plp
new file mode 100644
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 d6269e8..a8bf630 100644
--- a/writing.plp
+++ b/writing.plp
@@ -39,7 +39,6 @@ $_ = qq{<a href="/latin">$_</a>} for $scriptname->{latn} || ();
 for (
 	[phnx => 'Phoenician'],
 	[brah => 'Brahmi'],
-	[digits => 'Digits'],
 ) {
 	my ($source, $title) = @$_;
 	my @table = do "writing-$source.inc.pl";
-- 
2.30.0