diff options
| author | Akshay Nair <phenax5@gmail.com> | 2024-12-28 14:53:58 +0530 |
|---|---|---|
| committer | Akshay Nair <phenax5@gmail.com> | 2024-12-28 14:53:58 +0530 |
| commit | 568923344f0941b2771459dd8dbe935ac971a968 (patch) | |
| tree | 54a07e8a3c25c85b299fe9d9273620972f03b508 /src/Chelleport.hs | |
| parent | b8c389eac5f875fc7ae9a5ab9ac446d24a079448 (diff) | |
| download | chelleport-568923344f0941b2771459dd8dbe935ac971a968.tar.gz chelleport-568923344f0941b2771459dd8dbe935ac971a968.zip | |
Allow clicking with enter
Diffstat (limited to 'src/Chelleport.hs')
| -rw-r--r-- | src/Chelleport.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |