From 6ad789149036a9e97a9c66860828892efa432bd4 Mon Sep 17 00:00:00 2001
From: Akshay Nair <phenax5@gmail.com>
Date: Thu, 26 Dec 2024 00:17:53 +0530
Subject: Add c-hjkl for movement keys

---
 src/Chelleport/Control.hs | 19 +++++++++++++------
 1 file changed, 13 insertions(+), 6 deletions(-)

(limited to 'src/Chelleport/Control.hs')

diff --git a/src/Chelleport/Control.hs b/src/Chelleport/Control.hs
index 48bdcb2..e7bd418 100644
--- a/src/Chelleport/Control.hs
+++ b/src/Chelleport/Control.hs
@@ -94,10 +94,17 @@ anyDigit = isKeycodeDigit . eventToKeycode
 anyAlphanumeric :: SDL.KeyboardEventData -> Bool
 anyAlphanumeric = isValidKey . eventToKeycode
 
-directionalIncrement :: (CInt, CInt) -> Char -> (Int, Int)
+hjklDirection :: Char -> Direction
+hjklDirection = \case
+  'H' -> DirLeft
+  'L' -> DirRight
+  'K' -> DirUp
+  'J' -> DirDown
+  _ -> DirUp
+
+directionalIncrement :: (CInt, CInt) -> Direction -> (Int, Int)
 directionalIncrement (incX, incY) = \case
-  'H' -> (-cIntToInt incX, 0)
-  'L' -> (cIntToInt incX, 0)
-  'K' -> (0, -cIntToInt incY)
-  'J' -> (0, cIntToInt incY)
-  _ -> undefined
+  DirLeft -> (-cIntToInt incX, 0)
+  DirRight -> (cIntToInt incX, 0)
+  DirUp -> (0, -cIntToInt incY)
+  DirDown -> (0, cIntToInt incY)
-- 
cgit v1.3.1