keyboard/altgr/emojiworks.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 %rows = qw(
   8         ` 🤖
   9         1 🦄
  10         2 🔥
  11         3 🎉
  12         4 💰
  13         ~ 🏻 ! 🏼 @ 🏽 # 🏾 $ 🏿
  14         5 🎶 % 🍿
  15         6 💩 ^ 🍑
  16         7 🙈 & 🌭
  17         8 ☀️ * ☔
  18         9 👀 ( ❄️
  19         0 💯 ) 🇺🇸
  20         - 🔫 _ 🕊️
  21         = 💁 + 🙅
  22         q 👉 Q 👈 ^q ☝
  23         w ✌ W 🤘 ^w ✊
  24         e 🙌 E 💪 ^e 🏋
  25         r 👌 R 👋 ^r 💦
  26         t 👍 T 👎 ^t 👑
  27         y ♥ Y 💔 ^y 💙
  28         u 💕 U 💋 ^u 💏
  29         i 👏 I ⚡ ^i 🎁
  30         o 🙏 O 👊 ^o 🕴
  31         p ✋ P 👆 ^p 🍔
  32         [ 🌮 { 🍕
  33         ] ☕ } 🍻
  34         \ ✨ | 🌟
  35         a 😍 A 😻 ^a 🏀
  36         s 😘 S 👫 ^s 🏈
  37         d 😳 D 😨 ^d ⚽
  38         f 😜 F 😋 ^f 😝
  39         g 😊 G 🤗 ^g 🏃
  40         h 😂 H 😆 ^h 💐
  41         j 😄 J 🙃 ^j 🌹
  42         k 😉 K 👯 ^k 🌈
  43         l 😌 L 💃 ^l 🍭
  44         ; 😎 : 🤓
  45         ' 🤔 " 🎅
  46         z 😈 Z ⛄ ^z 👻
  47         x 😡 X ☠️ ^x ⚔️
  48         c 😱 C 🙊 ^c 👽
  49         v 😬 V 👼 ^v 🛠️
  50         b 😑 B 😶 ^b 😷
  51         n 😒 N 🙄 ^n 😏
  52         m 😢 M 👶 ^m 🐶
  53         , 😭 < 😖
  54         . 😔 > 😩
  55         / 😴 ? 😞
  56 );
  57
  58 my $groups = kbchars(\%rows);
  59
  60 while (my ($k, $c) = each %rows) {
  61         # override letter-based classes by unicode versions
  62         $groups->{def}{''}{$k} = (
  63                 $c =~ /\p{General_Category=Modifier_Symbol}/ ? 'g9' :
  64                 $c =~ /\p{In=1.1}/ ? 'g2' :
  65                 $c =~ /\p{In=5.2}/ ? 'g3' :
  66                 $c =~ /\p{In=6.0}/ ? 'g4' :
  67                 $c =~ /\p{In=7.0}/ ? 'g5' :
  68                 $c =~ /\p{In=8.0}/ ? 'g7' :
  69                 'g0' # unexpectedly newer
  70         );
  71 }
  72
  73 +{
  74         %{$groups},
  75         title => 'EmojiWorks',
  76         version => '1.0',
  77         category => 'legacy/emoji',
  78         tableclass => 'keys big',
  79         intro => join("\n",
  80                 "Commercial product from 2015 (no longer available)",
  81                 "with <em>emoji</em> (Alt) buttons",
  82                 "to insert various Unicode emoticons and other symbols.",
  83         ),
  84         description => [
  85                 "Legacy EmojiWorks keyboard layout",
  86                 "for typing a selection of Unicode emoji symbols.",
  87         ],
  88         rows => [2, 1, 0],
  89         moderows => '321-21',
  90         image => 'data/keyboard/thumb/emojiworks.jpg',
  91         flag => {
  92                 g2 => ['legacy'   => "Already in Unicode 1.1 released in 1993 as text symbols"],
  93                 g3 => ['predated' => "Updates up to Unicode 5.2 between, retroactively emojified"],
  94                 g4 => ['first'    => "Initial emoji support with Unicode 6.0 in 2010"],
  95                 g5 => ['update'   => "Extensions in Unicode 6.1 and 7.0 (2014)"],
  96                 g7 => ['latest'   => "Added in Unicode 8.0, in 2015 when these characters were selected"],
  97                 g9 => ['modifier' => "Fitzpatrick skin colour selection marks in Unicode 8.0"],
  98         },
  99 }