keys.inc.pl

   1 use utf8;
   2 use strict;
   3 use warnings;
   4 no warnings 'qw';
   5 my @num = qw(^0 ^0 ^@ ^0 ^0 ^0 ^^ ^0 ^0 ^0 ^0);
   6
   7 dvorak => [[
   8         [qw/ `  1  2  3  4  5  6  7  8  9  0  [  ] /],
   9         [qw/ ~  !  @  #  $  %  ^  &  *  (  )  {  } /],
  10         [@num, qw/                           ^[ ^] /],
  11 ], [
  12         [qw( '  ,  .  p  y  f  g  c  r  l  /  = )],
  13         [qw/ "  <  >  P  Y  F  G  C  R  L  ?  + /],
  14         [qw/^0 ^0 ^0 ^p ^y ^f ^g ^c ^r ^l ^? ^0 /],
  15 ], [
  16         [qw/ a  o  e  u  i  d  h  t  n  s  -  \\ /],
  17         [qw/ A  O  E  U  I  D  H  T  N  S  _   | /],
  18         [qw/^a ^o ^e ^u ^i ^d ^h ^t ^n ^s ^_ ^\\ /],
  19 ], [
  20         [qw/ ;  q  j  k  x  b  m  w  v  z /],
  21         [qw/ :  Q  J  K  X  B  M  W  V  Z /],
  22         [qw/^0 ^q ^j ^k ^x ^b ^m ^w ^v ^z /],
  23 ]],
  24
  25 qwerty => [[
  26         [qw/ `  1  2  3  4  5  6  7  8  9  0  -  = /],
  27         [qw/ ~  !  @  #  $  %  ^  &  *  (  )  _  + /],
  28         [@num, qw/                           ^_ ^0 /],
  29 ], [
  30         [qw/ q  w  e  r  t  y  u  i  o  p  [  ] /],
  31         [qw/ Q  W  E  R  T  Y  U  I  O  P  {  } /],
  32         [qw/^q ^w ^e ^r ^t ^y ^u ^i ^o ^p ^[ ^] /],
  33 ], [
  34         [qw/ a  s  d  f  g  h  j  k  l  ;  '  \\ /],
  35         [qw/ A  S  D  F  G  H  J  K  L  :  "   | /],
  36         [qw/^a ^s ^d ^f ^g ^h ^j ^k ^l ^0 ^0 ^\\ /],
  37 ], [
  38         [qw( z  x  c  v  b  n  m  ,  .  / )],
  39         [qw( Z  X  C  V  B  N  M  <  >  ? )],
  40         [qw(^z ^x ^c ^v ^b ^n ^m ^0 ^0 ^? )],
  41 ]],
  42
  43 qwertz => [[
  44         [qw/ ^  1  2  3  4  5  6  7  8  9  0  ß  ´ /],
  45         [qw{ °  !  "  §  $  %  &  /  (  )  =  ?  ` }],
  46         [qw/^^ ^0 ^0 ^0 ^0 ^0 ^0  {  [  ]  } \\ ^0 /],
  47 #       [qw{ °  !  "  §  $  %  &  /  (  )  =  ?  ` }],
  48 ], [
  49         [qw/ q  w  e  r  t  z  u  i  o  p  ü  + /],
  50         [qw/ Q  W  E  R  T  Z  U  I  O  P  Ü  * /],
  51         [qw/ @ ^w ^e ^r ^t ^z ^u ^i ^o ^p ^0  ~ /],
  52         #    ^ show altgr-Q instead
  53 ], [
  54         [qw/ a  s  d  f  g  h  j  k  l  ö  ä  # /],
  55         [qw/ A  S  D  F  G  H  J  K  L  Ö  Ä  ' /],
  56         [qw/^a ^s ^d ^f ^g ^h ^j ^k ^l ^0 ^0 ^0 /],
  57 ], [
  58         [qw/ y  x  c  v  b  n  m  ,  .  -  < /],
  59         [qw/ Y  X  C  V  B  N  M  ;  :  _  > /],
  60         [qw/^y ^x ^c ^v ^b ^n ^m ^0 ^0 ^_  | /],
  61 ]],
  62
  63 azerty => [[
  64         [qw/  <  &  é  "  '  (  - ^_  _  ç  @  )  = /],
  65         [qw/  >  1  2  3  4 ^[  6  7  8  9  0 ^]  + /], # 5 unused atm
  66 #       [qw/  <  &  é  "  '  (  - ^_  _  ç  @  )  = /], # à→@→^@, è→^_
  67         [qw/^\\ ^0  ~  #  {  [  |  ` \\ ^0 ^@  ]  } /], # °→^]
  68 ], [
  69         [qw/ a  z  e  r  t  y  u  i  o  p  ^  $ /],
  70         [qw/ A  Z  E  R  T  Y  U  I  O  P  ¨  £ /],
  71         [qw/^a ^z ^e ^r ^t ^y ^u ^i ^o ^p ^^  ¤ /],
  72 ], [
  73         [qw/ q  s  d  f  g  h  j  k  l  m  ù  * /],
  74         [qw/ Q  S  D  F  G  H  J  K  L  M  %  µ /],
  75         [qw/^q ^s ^d ^f ^g ^h ^j ^k ^l ^m ^0 ^0 /],
  76 ], [
  77         [qw( w  x  c  v  b  n  ,  ;  :  ! )],
  78         [qw( W  X  C  V  B  N  ?  .  /  § )],
  79         [qw(^w ^x ^c ^v ^b ^n ^? ^0 ^0 ^0 )],
  80 ]],
  81
  82 arensito => [[
  83         [qw/ `  1  2  3  4  5  6  7  8  9  0  [  ] /],
  84         [qw/ ~  !  @  #  $  %  ^  &  *  (  )  {  } /],
  85         [@num, qw/                           ^[ ^] /],
  86 ], [
  87         [qw( q  l  '  p  ,  .  f  u  d  k  /  = )],
  88         [qw( Q  L  "  P  <  >  F  U  D  K  ?  + )],
  89         [qw(^q ^l ^0 ^p ^0 ^0 ^f ^u ^d ^k ^? ^0 )],
  90 ], [
  91         [qw/ a  r  e  n  b  g  s  i  t  o  -  \\ /],
  92         [qw/ A  R  E  N  B  G  S  I  T  O  _   | /],
  93         [qw/^a ^r ^e ^n ^b ^g ^s ^i ^t ^o ^_ ^\\ /],
  94 ], [
  95         [qw/ z  w  ;  h  j  v  c  y  m  x /],
  96         [qw/ Z  W  :  H  J  V  C  Y  M  X /],
  97         [qw/^z ^w ^0 ^h ^j ^v ^c ^y ^m ^x /],
  98 ]],
  99
 100 abc => [[
 101         [qw/ `  1  2  3  4  5  6  7  8  9  0  -  = /],
 102         [qw/ ~  !  @  #  $  %  ^  &  *  (  )  _  + /],
 103         [@num, qw/                           ^_ ^0 /],
 104 ], [
 105         [qw/ a  b  c  d  e  f  g  h  i  j  [  ] /],
 106         [qw/ A  B  C  D  E  F  G  H  I  J  {  } /],
 107         [qw/^a ^b ^c ^d ^e ^f ^g ^h ^i ^j ^[ ^] /],
 108 ], [
 109         [qw/ k  l  m  n  o  p  q  r  s  ;  '  \\ /],
 110         [qw/ K  L  M  N  O  P  Q  R  S  :  "   | /],
 111         [qw/^k ^l ^m ^n ^o ^p ^q ^r ^s ^0 ^0 ^\\ /],
 112 ], [
 113         [qw' t  u  v  w  x  y  z  ,  .  / '],
 114         [qw' T  U  V  W  X  Y  Z  <  >  ? '],
 115         [qw'^t ^u ^v ^w ^x ^y ^z ^0 ^0 ^? '],
 116 ]],
 117
 118 colemak => [[
 119         [qw/ `  1  2  3  4  5  6  7  8  9  0  -  = /],
 120         [qw/ ~  !  @  #  $  %  ^  &  *  (  )  _  + /],
 121         [@num, qw/                           ^_ ^0 /],
 122 ], [
 123         [qw/ q  w  f  p  g  j  l  u  y  ;  [  ] /],
 124         [qw/ Q  W  F  P  G  J  L  U  Y  :  {  } /],
 125         [qw/^q ^w ^f ^p ^g ^j ^l ^u ^y ^0 ^[ ^] /],
 126 ], [
 127         [qw/ a  r  s  t  d  h  n  e  i  o  '  \\ /],
 128         [qw/ A  R  S  T  D  H  N  E  I  O  "   | /],
 129         [qw/^a ^r ^s ^t ^d ^h ^n ^e ^i ^o ^0 ^\\ /],
 130 ], [
 131         [qw( z  x  c  v  b  k  m  ,  .  / )],
 132         [qw( Z  X  C  V  B  K  M  <  >  ? )],
 133         [qw(^z ^x ^c ^v ^b ^k ^m ^0 ^0 ^? )],
 134 ]],
 135
 136 qwerak => [[
 137         [qw/ `  1  2  3  4  5  6  7  8  9  0  -  = /],
 138         [qw/ ~  !  @  #  $  %  ^  &  *  (  )  _  + /],
 139         [@num, qw/                           ^_ ^0 /],
 140 ], [
 141         [qw/ q  w  j  p  ;  y  g  k  r  l  [  ] /],
 142         [qw/ Q  W  J  P  :  Y  G  K  R  L  {  } /],
 143         [qw/^q ^w ^j ^p ^0 ^y ^g ^k ^r ^l ^[ ^] /],
 144 ], [
 145         [qw/ a  s  e  i  u  d  h  t  n  o  '  \\ /],
 146         [qw/ A  S  E  I  U  D  H  T  N  O  "   | /],
 147         [qw/^a ^s ^e ^i ^u ^d ^h ^t ^n ^o ^0 ^\\ /],
 148 ], [
 149         [qw( z  x  c  v  b  f  m  ,  .  / )],
 150         [qw( Z  X  C  V  B  F  M  <  >  ? )],
 151         [qw(^z ^x ^c ^v ^b ^f ^m ^0 ^0 ^? )],
 152 ]],
 153