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