From c1e05401d5c3cf90440e62a3423d2b52cfc46999 Mon Sep 17 00:00:00 2001
From: Akshay Nair <phenax5@gmail.com>
Date: Sat, 28 Dec 2024 22:25:13 +0530
Subject: Add <c-r> to refresh mode (reload ocr results) + fix search mode
 reset issue

---
 src/Chelleport.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/Chelleport.hs')

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
-- 
cgit v1.3.1