Update keyPress.hs

This commit is contained in:
千住柱間 2025-01-31 02:44:25 +00:00
commit 95eb1c77ea

View file

@ -13,7 +13,9 @@ import Text.Read (readMaybe)
import Data.Word (Word32)
-- this can be mapped to a kana keyboard later
-- TODO:
-- use this instead of a table:
-- https://hackage.haskell.org/package/X11-1.10.3/docs/Graphics-X11-Xlib-Misc.html#v:keycodeToKeysym
keymap :: [(Word32, String)]
keymap =
[ (9, "# Esc")