From 568923344f0941b2771459dd8dbe935ac971a968 Mon Sep 17 00:00:00 2001
From: Akshay Nair <phenax5@gmail.com>
Date: Sat, 28 Dec 2024 14:53:58 +0530
Subject: Allow clicking with enter

---
 src/Chelleport.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Chelleport.hs')

diff --git a/src/Chelleport.hs b/src/Chelleport.hs
index 029821e..370951e 100644
--- a/src/Chelleport.hs
+++ b/src/Chelleport.hs
@@ -45,8 +45,8 @@ eventHandler state event =
       -- <C-hjkl>: Movement
       | checkKey [ctrl, hjkl, pressed] ev ->
           MoveMouseInDirection . hjklDirection <$> toKeyChar (eventToKeycode ev)
-      -- Space / Shift+Space : Left click/chain left click
-      | checkKey [key SDL.KeycodeSpace, pressed] ev ->
+      -- Space / Enter / Shift+Space / Shift+Enter : Left click/chain left click
+      | checkKey [key SDL.KeycodeSpace <||> key SDL.KeycodeReturn, pressed] ev ->
           if shift ev
             then Just $ ChainMouseClick LeftClick
             else Just $ TriggerMouseClick LeftClick
-- 
cgit v1.3.1