keyboard.plp

   1 <(common.inc.plp)><:
   2
   3 Html({
   4         title => 'keyboard cheat sheet',
   5         version => '1.0',
   6         stylesheet => [qw( light dark circus mono red )],
   7         keys => 1,
   8 });
   9
  10 :>
  11 <h1>keyboard cheat sheet</h1>
  12
  13 <h2>normal mode (default)</h2>
  14
  15 <:
  16 use Shiar_Sheet::Keyboard 2.07;
  17 use Unicode::Normalize qw( NFKD );
  18
  19 my @usintrows = (
  20         [  'a' ..                                            'z'],
  21         [qw(Á B ¢ Ð É F G H Í J Œ Ø µ Ñ Ó Ö Ä ® § Þ Ú V Å X Ü Æ)],
  22         [qw(á b © ð é f g h í j œ ø µ ñ ó ö ä ® ß þ ú v å x ü æ)],
  23         [qw(Å ı Ç ð ´ ̉ ˝ ̣ ˆ ½  Þ ¾ ˜ Ø ∏ Œ ‰ / ˇ ¨ ◊ „ ˛ ¼ ¸)],
  24         [qw(å ∫ ç ∂ ́ ƒ © ˙ ̂ ∆ ° ¬ µ ̃ ø π œ ® ß † ̈ √ ∑ ≈ ¥ Ω)],
  25 );
  26 my @usint = (
  27         map {
  28                 my $c = $_;
  29                 [ map { $usintrows[$_]->[$c] } 0 .. 2 ]
  30         } 0 .. $#{ $usintrows[0] }
  31 );
  32
  33 my $keys = Shiar_Sheet::Keyboard->new({
  34         def => {
  35                 '' => {
  36                         map {
  37                                 my @row = @{$_};
  38                                 my $class = (
  39                                           !defined $row[2] || $row[0] eq $row[2] ? 1 # identical
  40                                         : NFKD($row[2]) =~ $row[0] ? 2 # decomposed equivalent
  41                                         : $row[2] =~ /^\p{Latin}/ ? 3 # latin script
  42                                         : $row[2] =~ /^\p{Mn}/ ? 5 # combining accent
  43                                         : 4
  44                                 );
  45                                 $row[0] => "g$class"
  46                         } @usint
  47                 },
  48         },
  49         key => {
  50                 map {
  51                         $_->[0] => "$_->[1]<br>$_->[2]"
  52                 } @usint
  53         },
  54         flag => {
  55                 g1 => ['unaltered'],
  56                 g2 => ['accented'],
  57                 g3 => ['latin'],
  58                 g4 => ['other'],
  59                 g5 => ['combining'],
  60         },
  61 });
  62 $keys->map($get{map}) or undef $get{map};
  63 $keys->print_rows($get{rows}, [0]);
  64 $keys->print_legends(\%get);
  65