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         '],
  12         stylesheet => [qw'light dark red'],
  13 });
  14
  15 :>
  16 <h1>Latin alphabet</h1>
  17
  18 <p>Also see <a href="/writing">other alphabets</a>
  19 and <a href="/unicode">common chars</a>.</p>
  20
  21 <div class="-diinfo">
  22
  23 <:
  24 use Shiar_Sheet::FormatChar;
  25 my $glyphs = Shiar_Sheet::FormatChar->new;
  26 unless (exists $get{v}) {
  27         $glyphs->{unicode}--;
  28         $glyphs->{digraph}--;
  29 }
  30
  31 my @t = (qw{
  32         .>Latin      a b c d e f g h i j k l m n o p q r s t u v w x y z
  33         .>Braille    ⠁ ⠃ ⠉ ⠙ ⠑ ⠋ ⠛ ⠓ ⠊ ⠚ ⠅ ⠇ ⠍ ⠝ ⠕ ⠏ ⠟ ⠗ ⠎ ⠞ ⠥ ⠧ ⠺ ⠭ ⠽ ⠵
  34         .>Morse      ‧‑ ‑‧‧‧ ‑‧‑‧ ‑‧‧ ‧ ‧‧‐‧ ‐‐‧ ‧‧‧‧ ‧‧ ‧‐‐‐ ‐‧‐ ‧‐‧‧ ‐‐
  35                      ‐‧ ‐‐‐ ‧‐‐‧ ‐‐‧‐ ‧‐‧ ‧‧‧ ‐ ‧‧‐ ‧‧‧‐ ‧‐‐ ‐‧‧‐ ‐‧‐‐ ‐‐‧‧
  36 });
  37 print $glyphs->table(exists $get{uc} ? [map {s/\s.//; uc} @t] : \@t);
  38
  39 print "</div>\n";
  40