digits.plp

   1 <(common.inc.plp)><:
   2
   3 Html({
   4         title => 'digit characters sheet',
   5         version => '1.0',
   6         description => [
   7                 "Unicode glyphs of numbers 0 to 10 in various scripts.",
   8         ],
   9         keywords => [qw(
  10                 numeral numerical digit number counting decimal
  11                 script glyph unicode writing comparison list character
  12                 history sample test language multilingual
  13         )],
  14         data => [qw'writing-digits.inc.pl'],
  15         raw => <<'EOT',
  16 <style>
  17 th:first-child { min-width: 10em }
  18 </style>
  19 EOT
  20 });
  21
  22 :>
  23 <h1>Numerals</h1>
  24
  25 <p>Digits and numbers counting up to ten
  26 in various <a href="/writing">writing systems</a>.</p>
  27
  28 <div>
  29
  30 <:
  31 use Shiar_Sheet::FormatChar 1.08;
  32 my $glyphs = Shiar_Sheet::FormatChar->new;
  33 unless (exists $get{v}) {
  34         $glyphs->{unicode}--;
  35         $glyphs->{anno}  = [];
  36         $glyphs->{style} = 'univer';
  37 }
  38
  39 my $scriptname = eval { Data('writing-script') };
  40 $_ = showlink($_, "/latin") for $scriptname->{latn} || ();
  41
  42 my $table = Data("writing-digits");
  43
  44 sub printtable {
  45         say '<div class=section>', $glyphs->tabletag;
  46         for my $id (@_) {
  47                 my $info = $table->{$id};
  48                 my $title = $info->{title} // $scriptname->{$id} || $id;
  49                 print $glyphs->row([ ".>$title", @{$info->{list}} ]);
  50         }
  51         say '</table></div>';
  52 }
  53
  54 printtable(@{ $table->{$_} }) for @{ $table->{default} };
  55
  56 say "</div>\n";
  57 say for '<hr/>', $glyphs->legend;
  58