aboutsummaryrefslogtreecommitdiff
path: root/src/Chelleport.hs
diff options
context:
space:
mode:
authorAkshay Nair <phenax5@gmail.com>2024-12-28 22:25:13 +0530
committerAkshay Nair <phenax5@gmail.com>2024-12-28 22:57:53 +0530
commitc1e05401d5c3cf90440e62a3423d2b52cfc46999 (patch)
treec68665ae84a2bd4c289865b2742a8a9752b83197 /src/Chelleport.hs
parent1d617d9db665ee9df209777626752a19496387b4 (diff)
downloadchelleport-c1e05401d5c3cf90440e62a3423d2b52cfc46999.tar.gz
chelleport-c1e05401d5c3cf90440e62a3423d2b52cfc46999.zip
Add <c-r> to refresh mode (reload ocr results) + fix search mode reset issue
Diffstat (limited to '')
-rw-r--r--src/Chelleport.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Chelleport.hs b/src/Chelleport.hs
index 4ad20a0..d4c21ed 100644
--- a/src/Chelleport.hs
+++ b/src/Chelleport.hs
@@ -32,6 +32,9 @@ eventHandler state event =
-- Esc: Quit
| checkKey [key SDL.KeycodeEscape, pressed] ev ->
Just ShutdownApp
+ -- <C-r>: Refresh current mode
+ | checkKey [ctrl, key SDL.KeycodeR, pressed] ev ->
+ Just $ SetMode $ stateMode state
-- <C-s>: Enable search mode
| checkKey [ctrl, key SDL.KeycodeS, pressed] ev ->
Just $ SetMode $ ModeSearch def