base: append exact formula in titles
[sheet.git] / digits.plp
1 <(common.inc.plp)><:
2
3 Html({
4         title => 'digit characters sheet',
5         version => 'v1.0',
6         description => [
7                 "Character comparison,",
8                 "tracking letters as they evolve from Phoenician to modern scripts.",
9                 "Good Unicode test sample.",
10         ],
11         keywords => [qw'
12                 script glyph unicode writing comparison character alphabet letter
13                 history phoenician latin sample test language multilingual
14         '],
15         stylesheet => [qw'light dark red'],
16         data => [qw'writing-digits.inc.pl'],
17 });
18
19 :>
20 <h1>Writing systems</h1>
21
22 <p>Also see comparison of <a href="/writing">writing systems</a>.</p>
23
24 <div class="section">
25
26 <:
27 use Shiar_Sheet::FormatChar;
28 my $glyphs = Shiar_Sheet::FormatChar->new;
29 unless (exists $get{v}) {
30         $glyphs->{unicode}--;
31         $glyphs->{anno}  = [];
32         $glyphs->{style} = 0;
33 }
34
35 my $scriptname = do 'writing-script.inc.pl';
36 $_ = qq{<a href="/latin">$_</a>} for $scriptname->{latn} || ();
37
38 my @table = do "writing-digits.inc.pl";
39 die "Table data not found: <em>$_</em>.\n" for $! || $@ || ();
40
41 $glyphs->print([map {
42         ref $_ eq 'ARRAY' ? @{$_} : map { ".>$_" }
43                 $scriptname->{"digits_$_"} || $scriptname->{$_} || $_
44 } @table]);
45
46 :></div>
47
48 <hr>
49