keys.inc.pl

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