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/AppState.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/src/Chelleport/AppState.hs b/src/Chelleport/AppState.hs
index a304c96..bcb7dce 100644
--- a/src/Chelleport/AppState.hs
+++ b/src/Chelleport/AppState.hs
@@ -132,7 +132,7 @@ update _ state ResetKeys = do
   where
     resetMode (ModeHints hintsData) = ModeHints $ hintsData {stateKeySequence = [], stateIsMatched = False}
     resetMode (ModeSearch searchData@(ModeSearchData {searchWords})) =
-      ModeSearch $ searchData {searchWords = searchWords, searchFilteredWords = searchWords}
+      ModeSearch $ searchData {searchWords = searchWords, searchFilteredWords = searchWords, searchInputText = ""}
 
 -- Initialize current mode
 update flush state InitializeMode =
@@ -149,7 +149,7 @@ update flush state InitializeMode =
       showWindow
       flush
       matches <- getWordsInImage screenshot
-      let updatedSearchData = searchData {searchWords = matches, searchFilteredWords = matches}
+      let updatedSearchData = searchData {searchWords = matches, searchFilteredWords = matches, searchInputText = ""}
       pure (state {stateMode = ModeSearch updatedSearchData, stateIsModeInitialized = True}, Nothing)
 
 -- Set mode
-- 
cgit v1.3.1