support altgr aliasing.

Yatao Li · Yatao Li · commit a1d00c923880 · 2022-03-19T06:03:07.000+08:00
diff --git a/README.md b/README.md
@@ -150,6 +150,7 @@ FVimUIWildMenu v:false      " external wildmenu -- work in progress
 " Keyboard mapping options
 FVimKeyDisableShiftSpace v:true " disable unsupported sequence <S-Space>
 FVimKeyAutoIme v:true           " Automatic input method engagement in Insert mode
+FVimKeyAltGr v:true             " Recognize AltGr. Side effect is that <C-A-Key> is then impossible
 
 " Detach from a remote session without killing the server
 " If this command is executed on a standalone instance,
diff --git a/fvim.vim b/fvim.vim
@@ -28,6 +28,7 @@ command! -complete=expression -nargs=1 FVimFontBoldWeight call rpcnotify(g:fvim_
 command! -complete=expression -nargs=1 FVimFontNoBuiltinSymbols call rpcnotify(g:fvim_channel, 'font.nonerd', <args>)
 command! -complete=expression -nargs=1 FVimKeyDisableShiftSpace call rpcnotify(g:fvim_channel, 'key.disableShiftSpace', <args>)
 command! -complete=expression -nargs=1 FVimKeyAutoIme call rpcnotify(g:fvim_channel, 'key.autoIme', <args>)
+command! -complete=expression -nargs=1 FVimKeyAltGr call rpcnotify(g:fvim_channel, 'key.altGr', <args>)
 
 " let! _ = nvim.``command!`` -complete=expression FVimUIMultiGrid 1 call rpcnotify(g:fvim_channel, 'ui.multigrid', <args>)
 command! -complete=expression -nargs=1 FVimUIPopupMenu call rpcnotify(g:fvim_channel, 'ui.popupmenu', <args>)
diff --git a/input.fs b/input.fs
@@ -72,7 +72,9 @@ let (|HasFlag|_|) (flag: KeyModifiers) (x: KeyModifiers) =
 let (|NoFlag|_|) (flag: KeyModifiers) (x: KeyModifiers) =
     if x.HasFlag flag then None else Some()
 let (|DoesntBlockTextInput|_|) (x: KeyModifiers) =
-    if x.HasFlag (KeyModifiers.Alt) || x.HasFlag (KeyModifiers.Control) || x.HasFlag (KeyModifiers.Meta) then None else Some()
+    if states.key_altGr && x.HasFlag (KeyModifiers.Alt) && x.HasFlag (KeyModifiers.Control) then Some()
+    elif x.HasFlag (KeyModifiers.Alt) || x.HasFlag (KeyModifiers.Control) || x.HasFlag (KeyModifiers.Meta) then None 
+    else Some()
 let (|NvimSupportedMouseButton|_|) (mb: MouseButton) =
     match mb with
     | MouseButton.Left | MouseButton.Right | MouseButton.Middle -> Some mb
diff --git a/model.fs b/model.fs
@@ -364,6 +364,7 @@ let Start (serveropts, norc, remote) =
     rpc.register.bool "cursor.smoothmove"
     rpc.register.bool "key.disableShiftSpace"
     rpc.register.bool "key.autoIme"
+    rpc.register.bool "key.altGr"
     //rpc.register.bool "ui.multigrid"
     rpc.register.bool "ui.popupmenu"
     //rpc.register.bool "ui.tabline"
diff --git a/states.fs b/states.fs
@@ -12,6 +12,7 @@ let mutable channel_id = 1
 // keyboard mapping
 let mutable key_disableShiftSpace = false
 let mutable key_autoIme = false
+let mutable key_altGr = false
 
 // clipboard
 let mutable clipboard_lines: string[] = [||]
