latin.plp

   1 <(common.inc.plp)><:
   2
   3 Html({
   4         title => 'latin alphabet cheat sheet',
   5         version => '1.3',
   6         description => [
   7         ],
   8         keywords => [qw'
   9                 latin roman alphabet script letter unicode font glyph abc
  10                 code encoding spelling symbol writing comparison character
  11                 secret cursive fraktur blind braille morse deaf asl hand
  12                 barcode bar color semaphore flag
  13         '],
  14         stylesheet => [qw'light dark red'],
  15         data => ['writing-latn.inc.pl'],
  16 });
  17
  18 :>
  19 <style>
  20         @font-face {
  21                 font-family: Suetterlin; /* R. G. Arens */
  22                 src: url("/suetterlin.ttf");
  23         }
  24         #sütterlin td { font-family: Suetterlin }
  25
  26         svg path:not([fill]) {
  27                 stroke: currentColor;
  28                 fill: none;
  29         }
  30
  31         td {
  32                 vertical-align: top;
  33         }
  34         td > svg {
  35                 vertical-align: middle;
  36         }
  37 </style>
  38
  39 <h1>Latin alphabet</h1>
  40
  41 <p>Variant encodings of the common ASCII (latin, roman,
  42 or <span title="fuck yeah!">'mercan</span>) letters A–Z.
  43 Also see <a href="/writing">related alphabets</a>
  44 and <a href="/unicode">common chars</a>.</p>
  45
  46 <div>
  47
  48 <:
  49 use List::Util qw( pairs );
  50
  51 my @table = do 'writing-latn.inc.pl';
  52 if ($! or $@) {
  53         Alert("Table data not found", $@ || $!);
  54 }
  55 else {
  56         say '<table class="glyphs">';
  57         for my $row (pairs @table) {
  58                 my ($title, $cells) = @{$row};
  59                 printf '<tr id="%s">', (lc $title) =~ s/<[^>]+>//gr =~ s/\s+/-/gr;
  60                 say '<th>', $title;
  61                 print /^<td/ ? $_ : "\t<td>$_\n" for @{$cells};
  62         }
  63         say "</table>\n";
  64 }
  65
  66 :></div>
  67