From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 11 Oct 2008 09:29:59 +0000 (+0000)
Subject: vim: ascii fallback of foreign keyboard layouts
X-Git-Tag: v1.2~14
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/06ddf29e06aa7f68bf1a72ee8c4261f45bb491ed

vim: ascii fallback of foreign keyboard layouts

Though not especially useful or practical, add ASCII-safe alternatives to
keyboard maps so that pages indicated us-ascii are indeed always so.
---

diff --git a/vim-keys.inc.pl b/vim-keys.inc.pl
index 2b14adb..03f1040 100644
--- a/vim-keys.inc.pl
+++ b/vim-keys.inc.pl
@@ -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 => [[