vim: ascii fallback of foreign keyboard layouts
authorMischa POSLAWSKY <perl@shiar.org>
Sat, 11 Oct 2008 09:29:59 +0000 (09:29 +0000)
committerMischa POSLAWSKY <perl@shiar.org>
Tue, 6 Jan 2009 22:39:02 +0000 (22:39 +0000)
Though not especially useful or practical, add ASCII-safe alternatives to
keyboard maps so that pages indicated us-ascii are indeed always so.

vim-keys.inc.pl

index 2b14adb..03f1040 100644 (file)
@@ -38,18 +38,19 @@ qwerty => [[
 ]],
 
 qwertz => [[
-       [qw/^^ ^0 ^0 ^0 ^0 ^0 ^0  {  [  ]  } \\ ^0 /],
-       [qw{ °  !  "  §  $  %  &  /  (  )  =  ?  ` }],
-       [qw/ ^  1  2  3  4  5  6  7  8  9  0  ß  ´ /],
+       [qw/^^ ^0 ^0 ^0 ^0 ^0 ^0  {  [  ]  }              \\         ^0 /],
+#      [qw{ °  !  "  §  $  %  &  /  (  )  =               ?          ` }],
+       [$ascii ? '^0' : '°', qw{ !  " }, $ascii ? '^0' : '§', qw{ $  %  &  /  (  )  =  ?  ` }],
+       [qw/ ^  1  2  3  4  5  6  7  8  9  0 /, $ascii ? ('ss', '^0') : ('ß', '´') ],
 ], [
-       [qw/ @ ^w ^e ^r ^t ^z ^u ^i ^o ^p ^0  ~ /],
+       [qw/ @ ^w ^e ^r ^t ^z ^u ^i ^o ^p              ^0     ~      /],
        #    ^ show altgr-Q instead
-       [qw/ Q  W  E  R  T  Z  U  I  O  P  Ü  * /],
-       [qw/ q  w  e  r  t  z  u  i  o  p  ü  + /],
+       [qw/ Q  W  E  R  T  Z  U  I  O  P /, $ascii ? 'UE' : 'Ü', '*' ],
+       [qw/ q  w  e  r  t  z  u  i  o  p /, $ascii ? 'ue' : 'ü', '+' ],
 ], [
-       [qw/^a ^s ^d ^f ^g ^h ^j ^k ^l ^0 ^0 ^0 /],
-       [qw/ A  S  D  F  G  H  J  K  L  Ö  Ä  ' /],
-       [qw/ a  s  d  f  g  h  j  k  l  ö  ä  # /],
+       [qw/^a ^s ^d ^f ^g ^h ^j ^k ^l               ^0    ^0                 ^0 /],
+       [qw/ A  S  D  F  G  H  J  K  L /, $ascii ? ('OE', 'AE') : ('Ö', 'Ä'), "'" ],
+       [qw/ a  s  d  f  g  h  j  k  l /, $ascii ? ('oe', 'ae') : ('ö', 'ä'), '#' ],
 ], [
        [qw/^y ^x ^c ^v ^b ^n ^m ^0 ^0 ^_  | /],
        [qw/ Y  X  C  V  B  N  M  ;  :  _  > /],
@@ -59,19 +60,20 @@ qwertz => [[
 azerty => [[
        [qw/^\\ ^0  ~  #  {  [  |  ` \\ ^0 ^@  ]  } /], # °→^]
        [qw/  >  1  2  3  4 ^[  6  7  8  9  0 ^]  + /], # 5 unused atm
-       [qw/  <  &  é  "  '  (  - ^_  _  ç  @  )  = /], # à→@→^@, è→^_
+#      [qw/  <  &  é  "  '  (  - ^_  _  ç  @  )  = /], # à→@→^@, è→^_
+       [qw/  <  & /, $ascii ? 'e\'' : 'é', qw/ "  '  (  - ^_  _ /, $ascii ? 'c,' : 'ç', qw/ @  )  = /],
 ], [
-       [qw/^a ^z ^e ^r ^t ^y ^u ^i ^o ^p ^^  ¤ /],
-       [qw/ A  Z  E  R  T  Y  U  I  O  P  ¨  £ /],
+       [qw/^a ^z ^e ^r ^t ^y ^u ^i ^o ^p ^^ /, $ascii ? 'Cu' : '¤'],
+       [qw/ A  Z  E  R  T  Y  U  I  O  P /, $ascii ? (":'", 'Pd') : ('¨', '£')],
        [qw/ a  z  e  r  t  y  u  i  o  p  ^  $ /],
 ], [
        [qw/^q ^s ^d ^f ^g ^h ^j ^k ^l ^m ^0 ^0 /],
-       [qw/ Q  S  D  F  G  H  J  K  L  M  %  µ /],
-       [qw/ q  s  d  f  g  h  j  k  l  m  ù  * /],
+       [qw/ Q  S  D  F  G  H  J  K  L  M /, '%', $ascii ? 'My' : 'µ'],
+       [qw/ q  s  d  f  g  h  j  k  l  m /, $ascii ? 'u!' : 'ù', '*'],
 ], [
-       [qw(^w ^x ^c ^v ^b ^n ^? ^0 ^0 ^0 )],
-       [qw( W  X  C  V  B  N  ?  .  /  § )],
-       [qw( w  x  c  v  b  n  ,  ;  :  ! )],
+       [qw(^w ^x ^c ^v ^b ^n ^? ^0 ^0                    ^0 )],
+       [qw( W  X  C  V  B  N  ?  .  / ), $ascii ? 'SE' : '§' ],
+       [qw( w  x  c  v  b  n  ,  ;  :                     ! )],
 ]],
 
 arensito => [[