latin.plp

   1 <(common.inc.plp)><:
   2
   3 Html({
   4         title => 'latin alphabet cheat sheet',
   5         version => 'v1.1',
   6         description => [
   7         ],
   8         keywords => [qw'
   9                 latin roman alphabet script letter unicode font glyph abc
  10                 writing comparison character sample test language spelling
  11                 cursive fraktur blind deaf
  12         '],
  13         stylesheet => [qw'light dark red'],
  14         data => ['writing-latn.inc.pl'],
  15 });
  16
  17 :>
  18 <style>
  19         @font-face {
  20                 font-family: Suetterlin; /* R. G. Arens */
  21                 src: url("/suetterlin.ttf");
  22         }
  23         .glyphs tr:first-child+tr td { font-family: Suetterlin }
  24 </style>
  25
  26 <h1>Latin alphabet</h1>
  27
  28 <p>Also see <a href="/writing">other alphabets</a>
  29 and <a href="/unicode">common chars</a>.</p>
  30
  31 <div class="-diinfo">
  32
  33 <:
  34 use Shiar_Sheet::FormatChar;
  35 my $glyphs = Shiar_Sheet::FormatChar->new;
  36 unless (exists $get{v}) {
  37         $glyphs->{unicode}--;
  38         $glyphs->{anno}  = [];
  39         $glyphs->{style} = 0;
  40 }
  41
  42 my %scriptname = (
  43         latn     => 'Latin',
  44         latnuc   => 'Uppercase',
  45         latnlc   => 'Lowercase',
  46         latfsuet => 'Sütterlin',
  47         asl      => '<abbr title="American Sign Lanugage">ASL</abbr>', # American manual alphabet
  48         brai     => 'Braille',
  49         morse    => 'Morse',
  50         tap      => 'Tap code',
  51         taps     => 'Tap simplified',
  52         ics      => 'Maritime flags', # International Code of Signals
  53         sem      => 'Flag semaphore',
  54         rm4scc   => '<abbr title="Royal Mail 4-State Customer Code">RM4SCC</abbr>',
  55 );
  56
  57 my @table = do 'writing-latn.inc.pl';
  58 if ($! or $@) {
  59         printf "<p class=error>Table data not found: <em>%s</em>.</p>\n", $@ || $!;
  60 }
  61 else {
  62         print $glyphs->table([map {
  63                 ref $_ ne 'ARRAY' ? ".>$scriptname{$_}"
  64                         : exists $get{uc} ? map {uc} @$_ : @$_
  65         } @table]);
  66 }
  67
  68 print "</div>\n";
  69