keyboard/altgr/supipa.eng.inc.pl

   1 use utf8;
   2 use strict;
   3 use warnings;
   4 use Shiar_Sheet::KeyboardChars 'kbmodes';
   5
   6 my %rows = (
   7 '' => {
   8         '~' => "\N{COMBINING TILDE}",
   9         '`' => '˞',
  10         '!' => 'ꜜ',
  11         '1' => 'ɨ',
  12         '@' => 'ə',
  13         '2' => 'ø',
  14         '#' => "\N{COMBINING ACUTE ACCENT}",
  15         '3' => 'ɜ',
  16         '$' => "\N{COMBINING MACRON}",
  17         '4' => 'ɾ',
  18         '%' => "\N{COMBINING GRAVE ACCENT}",
  19         '5' => 'ɫ',
  20         '^' => 'ꜛ',
  21         '6' => 'ɐ',
  22         '&' => 'æ',
  23         '7' => 'ɤ',
  24         '8' => 'ɵ',
  25         '9' => 'œ',
  26         '0' => "\N{COMBINING RING BELOW}",
  27         '+' => "\N{COMBINING INVERTED BREVE BELOW}",
  28         '=' => "\N{COMBINING VERTICAL LINE BELOW}",
  29
  30         'Q' => 'ɒ',
  31         'W' => 'ʍ',
  32         'E' => 'ɛ',
  33         'R' => 'ʁ',
  34         'T' => 'θ',
  35         'Y' => 'ʏ',
  36         'U' => 'ʊ',
  37         'I' => 'ɪ',
  38         'O' => 'ɔ',
  39         'P' => 'ʋ',
  40
  41         'A' => 'ɑ',
  42         'S' => 'ʃ',
  43         'D' => 'ð',
  44         'F' => 'ɱ',
  45         'G' => 'ɣ',
  46         'H' => 'ɥ',
  47         'J' => 'ɲ',
  48         'K' => 'ɬ',
  49         'L' => 'ʎ',
  50         ':' => 'ː',
  51         ';' => 'ʲ',
  52         '"' => 'ˌ',
  53         "'" => 'ˈ',
  54         '|' => '‖',
  55
  56         'Z' => 'ʒ',
  57         'X' => 'χ',
  58         'C' => 'ç',
  59         'V' => 'ʌ',
  60         'B' => 'β',
  61         'N' => 'ŋ',
  62         'M' => 'ɯ',
  63         '?' => 'ʔ',
  64 },
  65 "\e" => {
  66         '~' => "\N{COMBINING TILDE BELOW}",
  67         '`' => "\N{COMBINING DIAERESIS BELOW}",
  68         '!' => '‼',
  69         '1' => 'ǃ',
  70         '@' => 'ɘ',
  71         '2' => "\N{COMBINING X ABOVE}",
  72         '#' => "\N{COMBINING DOUBLE ACUTE ACCENT}",
  73         '3' => 'ɞ',
  74         '$' => 'ɻ',
  75         '4' => 'ɽ',
  76         '%' => "\N{COMBINING DOUBLE GRAVE ACCENT}",
  77         '5' => "\N{COMBINING TILDE OVERLAY}",
  78         '^' => "\N{COMBINING CARON}",
  79         '6' => "\N{COMBINING CIRCUMFLEX ACCENT}",
  80         '&' => 'ɶ',
  81         '7' => "\N{COMBINING GRAVE-ACUTE-GRAVE}",
  82         '*' => "\N{COMBINING MACRON-ACUTE}",
  83         '8' => "\N{COMBINING GRAVE-MACRON}",
  84         '(' => "\N{COMBINING DOUBLE INVERTED BREVE}",
  85         '9' => "\N{COMBINING LEFT ANGLE ABOVE}",
  86         ')' => "\N{COMBINING DOUBLE BREVE BELOW}",
  87         '0' => "\N{COMBINING CARON BELOW}",
  88         '_' => "\N{COMBINING MINUS SIGN BELOW}",
  89         '-' => '‿',
  90         '+' => "\N{COMBINING PLUS SIGN BELOW}",
  91         '=' => 'ǂ',
  92
  93         'Q' => "\N{COMBINING SQUARE BELOW}",
  94         'q' => 'ˠ',
  95         'W' => "\N{COMBINING SEAGULL BELOW}",
  96         'w' => 'ʷ',
  97         'E' => 'ɝ',
  98         'e' => 'ɚ',
  99         'R' => 'ʀ',
 100         'r' => 'ɹ',
 101         'T' => '↗',
 102         't' => 'ʈ',
 103         'Y' => 'ʛ',
 104         'y' => 'ɠ',
 105         'U' => 'ᵿ',
 106         'u' => 'ʉ',
 107         'I' => 'ᵻ',
 108         'i' => 'ɨ',
 109         'O' => 'ʘ',
 110         'o' => 'ˡ',
 111         'P' => '↘',
 112         'p' => 'ɸ',
 113         '{' => "\N{COMBINING LEFT TACK BELOW}",
 114         '[' => "\N{COMBINING UP TACK BELOW}",
 115         '}' => "\N{COMBINING RIGHT TACK BELOW}",
 116         ']' => "\N{COMBINING DOWN TACK BELOW}",
 117
 118         'A' => "\N{COMBINING INVERTED BRIDGE BELOW}",
 119         'a' => 'ʰ',
 120         'S' => 'ʂ',
 121         's' => 'ɕ',
 122         'D' => "\N{COMBINING BRIDGE BELOW}",
 123         'd' => 'ɖ',
 124         'F' => 'ʄ',
 125         'f' => 'ɗ',
 126         'G' => 'ɢ',
 127         'g' => 'ɡ',
 128         'H' => 'ʜ',
 129         'h' => 'ɦ',
 130         'J' => 'ɟ',
 131         'j' => 'ʝ',
 132         'K' => 'ɮ',
 133         'k' => 'ɭ',
 134         'L' => 'ʟ',
 135         'l' => 'ɺ',
 136         ':' => 'ˑ',
 137         ';' => "\N{COMBINING BREVE}",
 138         '"' => "\N{COMBINING DIAERESIS}",
 139         "'" => 'ʼ',
 140         '|' => 'ǁ',
 141         '|' => 'ǀ',
 142
 143         'Z' => 'ʐ',
 144         'z' => 'ʑ',
 145         'X' => 'ħ',
 146         'x' => 'ɧ',
 147         'C' => "\N{COMBINING RIGHT HALF RING BELOW}",
 148         'c' => "\N{COMBINING LEFT HALF RING BELOW}",
 149         'V' => 'ⱱ',
 150         'v' => 'ʋ',
 151         'B' => 'ʙ',
 152         'b' => 'ɓ',
 153         'N' => 'ɴ',
 154         'n' => 'ɳ',
 155         'M' => 'ɰ',
 156         'm' => 'ⁿ',
 157         '<' => 'ʢ',
 158         ',' => '⟨',
 159         '>' => 'ʡ',
 160         '.' => '⟩',
 161         '?' => 'ʕ',
 162         '/' => 'ˤ',
 163 },
 164 );
 165
 166 while (my ($k, $c) = each $rows{"\e"}->%*) {
 167         $rows{''}{"+$k"} = $c;
 168 }
 169
 170 +{
 171         %{ kbmodes(\%rows) },
 172         version => '1.0', # v1.0.3.40
 173         title => 'SuperIPA',
 174         # http://kbdlayout.info/SupIPA/
 175         intro => 'Custom map by Rebecca G. Bettencourt', # ©2018 Kreative Software
 176         category => 'specialized/ipa',
 177         moderows => '542-5421', # ;'
 178 }