aboutsummaryrefslogtreecommitdiff
path: root/src/Chelleport/KeySequence.hs
diff options
context:
space:
mode:
authorAkshay Nair <phenax5@gmail.com>2024-12-15 20:27:53 +0530
committerAkshay Nair <phenax5@gmail.com>2024-12-15 20:50:52 +0530
commit2cb08c5e64c53eb16ea8436fb6490db72d885426 (patch)
tree332a10ba2f95fcb74bf0c80f704955f2bd1dc02d /src/Chelleport/KeySequence.hs
parent2feff9170ade1b68d70bfd0b6ff6f2528f7a862c (diff)
downloadchelleport-2cb08c5e64c53eb16ea8436fb6490db72d885426.tar.gz
chelleport-2cb08c5e64c53eb16ea8436fb6490db72d885426.zip
Add shift to accelerate hjkl movement
Diffstat (limited to 'src/Chelleport/KeySequence.hs')
-rw-r--r--src/Chelleport/KeySequence.hs3
1 files changed, 0 insertions, 3 deletions
diff --git a/src/Chelleport/KeySequence.hs b/src/Chelleport/KeySequence.hs
index 9f7b5db..d92fe0e 100644
--- a/src/Chelleport/KeySequence.hs
+++ b/src/Chelleport/KeySequence.hs
@@ -53,9 +53,6 @@ generateGrid seed (rows, columns) hintKeys
toKeyChar :: SDL.Keycode -> Maybe Char
toKeyChar = (`Map.lookup` keycodeMapping)
-eventToKeycode :: SDL.KeyboardEventData -> SDL.Keycode
-eventToKeycode = SDL.keysymKeycode . SDL.keyboardEventKeysym
-
keycodeMapping :: Map.Map SDL.Keycode Char
keycodeMapping =
Map.fromList