keyboard/altgr/im.eng.inc.pl

   1 use utf8;
   2 use strict;
   3 use warnings;
   4 no  warnings 'qw';
   5 use Shiar_Sheet::KeyboardChars 'kbchars';
   6
   7 my %literal = (
   8         'a' => "😇\nAngel",
   9         'b' => "🍺\nBeer mug",
  10         'c' => "☕\nCoffee Cup",
  11         'd' => "🍸\nDrink",
  12         'e' => "📧\nE-mail",
  13         'f' => "🌹\nFlower",
  14         'g' => "🎁\nGift",
  15         'h' => "😎\nHot",
  16         'i' => "💡\nIlluminating Idea",
  17         'k' => "💋\nKiss",
  18         'l' => "❤️\nLove heart",
  19         'm' => "👥\nMSN Messenger icon",
  20         'n' => "👎\nNo, thumbs down",
  21         'o' => "⏰\nO' clock",
  22         'p' => "📷\nPhoto camera",
  23         's' => "🌜\nSleeping half-moon", # no lowercase?
  24         't' => "📞\nTelephone receiver",
  25         'u' => "💔\nUn-heart",
  26         'w' => "🥀\nWilted rose",
  27         'x' => "👧\ngirl",
  28         'y' => "👍\nYes, thumbs up",
  29         'z' => "👦\nboy",
  30         '~' => "🎥\nfilmstrip",
  31         '@' => "🐱\ncat face",
  32         '6' => "😈\n666 devil",
  33         '^' => "🎂\nbirthday cake",
  34         '&' => "🐶\ndog face",
  35         '8' => "♪\n8th note",
  36         '*' => "☆\nstar",
  37         '{' => "🤗\nleft hug", # hugging face
  38         '}' => "🫂\nright hug", # people hugging
  39 );
  40 $literal{$_} .= " (\u$_)" for keys %literal;
  41 $_ = ['g2', $_] for values %literal;
  42
  43 my %more = (
  44         'D' => ['g4', "😃\nopen-mouthed :-D"],
  45         'O' => ['g4', "😲\nsurprised :-O"],
  46         'P' => ['g4', "😜\ntongue out :-P"],
  47         'S' => ['g4', "😖\nconfused :-S"],
  48         'Z' => ['g4', "😩\nsleepy |-)"],
  49         '(' => ['g4', "☹\nsad :-("],
  50         ')' => ['g4', "☺\nhappy :-)"],
  51         '[' => ['g4', "🦇\nbat :-["],
  52         '<' => ['g4', "🥳\nparty <:o)"],
  53         '|' => ['g4', "😞\ndisappointed :-|"],
  54         "'" => ['g4', "😭\ncrying :'("],
  55         ';' => ['g4', "😉\nwinking ;-)"],
  56         '@' => ['g4', "😠\nangry :-@"],
  57         '#' => ['g4', "🤐\ndon't tell :-#"],
  58         '$' => ['g4', "😳\nembarrased :-\$"],
  59         '+' => ['g4', "🤢\nsick +o("],
  60
  61         'j' => ['g6', "☂\numbrella lookalike (um)"],
  62         '0' => ['g6', "⚽\nsoccer ball (so)"],
  63         '>' => ['g6', "🍕\npizza slice (pi)"],
  64         'I' => ['g6', "🏝\nisland with palm tree (ip)"],
  65         'C' => ['g6', "💻 \ndesktop computer (co)"],
  66
  67         # gmail character
  68         'M' => ['g7', "🤘\n\\m/"],
  69         'v' => ['g7', "💩\npoo ~@~"],
  70         ']' => ['g7', "🤖\nrobot [:|]"],
  71         '{' => ['g7', "🥸\nmustache :{"],
  72 );
  73
  74 my %rows = (%literal, %more);
  75
  76 +{
  77         version => '1.0',
  78         title => 'MessengerMoji',
  79         category => 'specialized',
  80         intro => '<a href="/emoji#msn">MSN</a>',
  81
  82         tableclass => 'keys big',
  83         rows => [1, 0],
  84         def => {'' => \%rows},
  85         flag => {
  86                 g2 => ['literal', "exact (X) letter shorthands"],
  87                 g4 => ['part', "significant character in the original code"],
  88                 g6 => ['other', "included by a different mnemonic"],
  89                 g7 => ['new'],
  90         },
  91 }