Add <c-r> to refresh mode (reload ocr results) + fix search mode reset issue

1 files changed, 2 insertions, 2 deletions

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