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' => ['g5', "😩\nsleepy |-)"],
  49         '(' => ['g4', "☹\nsad :-("],
  50         ')' => ['g4', "☺\nhappy :-)"],
  51         '[' => ['g4', "🦇\nbat :-["],
  52         '<' => ['g4', "🥳\nparty <:o)"],
  53         '\\'=> ['g5', "😞\ndisappointed :-|"],
  54         "'" => ['g4', "😭\ncrying :'("],
  55         ';' => ['g4', "😉\nwinking ;-)"],
  56         '@' => ['g4', "😠\nangry :-@"],
  57         '#' => ['g4', "🤐\ndon't tell :-#"],
  58         '$' => ['g4', "😳\nembarrased :-\$"],
  59         '+' => ['g4', "🤢\nsick +o("],
  60         #'^' => ['g4', "🤨\nsarcastic ^o)"],
  61         #'*' => ['g5', "😔\nthinking *-)"],
  62
  63         'j' => ['g5', "☂\numbrella lookalike (um)"],
  64         '0' => ['g5', "⚽\nsoccer ball (so)"],
  65         '>' => ['g5', "🍕\npizza slice (pi)"],
  66         'I' => ['g5', "🏝\nisland with palm tree (ip)"],
  67         'C' => ['g5', "💻 \ndesktop computer (co)"],
  68         '3' => ['g5', "🐱\n:3 cat face (@)"],
  69         'T' => ['g5', "⛈️\nsTormy cloud (st)"],
  70         #'B' => ['g5', "🐑\nsheep (bah)"],
  71         #'@' => ['g5', "🐌\nsnail (sn)"],
  72         #'M' => ['g5', "💰\nmoney (mo)"],
  73         '9' => ['g5', "🍜\nbowl (||)"],
  74
  75         # gmail character
  76         'M' => ['g6', "🤘\n\\m/"],
  77         'v' => ['g6', "💩\npoo ~@~"],
  78         ']' => ['g6', "🤖\nrobot [:|]"],
  79         '{' => ['g6', "🥸\nmustache :{"],
  80         'X' => ['g6', "😘\nkiss :-x"],
  81         ':' => ['g6', "🐷\npig :(:)"],
  82         'V' => ['g6', "🦀\ncrab V.v.V"],
  83         '|' => ['g5', "😐\nstraight :-|"],
  84         '%' => ['g6', "☯\nyin-yang (%)"],
  85
  86         # popular
  87         '"' => ['g7', "😂\ntears of joy '^^'"],
  88         '/' => ['g7', "🤣\nrofl"],
  89         '5' => ['g7', "🙏\nhigh 5 or folded hands"],
  90         ',' => ['g7', "🎉\nparty popper"],
  91         'L' => ['g7', "😍\nLove eyes"],
  92         'F' => ['g7', "🔥\nFire"],
  93         '`' => ['g7', "✨\nsparkles"],
  94         '=' => ['g7', "👏\nclap"],
  95         '2' => ['g7', "✌️\n2 fingers"],
  96         'E' => ['g7', "🙈\nsee no Evil monkey"],
  97         'B' => ['g7', "🍻\nBeer mugs"],
  98         '!' => ['g7', "🍆\neggplant!"],
  99 );
 100
 101 my %rows = (%literal, %more);
 102
 103 +{
 104         version => '1.1',
 105         title => 'MessengerMoji',
 106         category => 'specialized',
 107         intro => join($/,
 108                 'Single key access to emoji shorthands',
 109                 'from the legacy <a href="/emoji#msn">MSN</a> app.',
 110         ),
 111
 112         tableclass => 'keys big',
 113         rows => [1, 0],
 114         def => {'' => \%rows},
 115         flag => {
 116                 g2 => ['literal', "exact (X) letter equivalent"],
 117                 g4 => ['part', "significant character in the original code"],
 118                 g5 => ['moved', "included by a different mnemonic"],
 119                 g6 => ['foreign', "copied from a contemporary Gmail smiley"],
 120                 g7 => ['unicode', "popular modern character introduced later"],
 121         },
 122 }