latin.plp

   1 <(common.inc.plp)><:
   2
   3 Html({
   4         title => 'latin alphabet cheat sheet',
   5         version => 'v1.0',
   6         description => [
   7         ],
   8         keywords => [qw'
   9                 latin roman alphabet script letter unicode font glyph abc
  10                 writing comparison character sample test language
  11                 cursive fraktur
  12         '],
  13         stylesheet => [qw'light dark red'],
  14 });
  15
  16 :>
  17 <style>
  18         @font-face {
  19                 font-family: Suetterlin; /* R. G. Arens */
  20                 src: url("/suetterlin.ttf");
  21         }
  22         .glyphs tr:first-child+tr td.di-a { font-family: Suetterlin }
  23 </style>
  24
  25 <h1>Latin alphabet</h1>
  26
  27 <p>Also see <a href="/writing">other alphabets</a>
  28 and <a href="/unicode">common chars</a>.</p>
  29
  30 <div class="-diinfo">
  31
  32 <:
  33 use Shiar_Sheet::FormatChar;
  34 my $glyphs = Shiar_Sheet::FormatChar->new;
  35 unless (exists $get{v}) {
  36         $glyphs->{unicode}--;
  37         $glyphs->{digraph}--;
  38 }
  39
  40 my %scriptname = (
  41         latn     => 'Latin',
  42         latfsuet => 'Sütterlin',
  43         brai     => 'Braille',
  44         morse    => 'Morse',
  45 );
  46
  47 my @table = do 'writing-latn.inc.pl';
  48 if ($! or $@) {
  49         printf "<p>Table data not found: <em>%s</em>.</p>\n", $! || $@;
  50 }
  51 else {
  52         print $glyphs->table([map {
  53                 ref $_ ne 'ARRAY' ? ".>$scriptname{$_}"
  54                         : exists $get{uc} ? map {uc} @$_ : @$_
  55         } @table]);
  56 }
  57
  58 print "</div>\n";
  59