Add <c-n> and <c-p> to walk through matches

1 files changed, 6 insertions, 5 deletions

diff --git a/src/Chelleport/View.hs b/src/Chelleport/View.hs
index 1a4f1f8..c2e0ff8 100644
--- a/src/Chelleport/View.hs
+++ b/src/Chelleport/View.hs
@@ -12,13 +12,14 @@ import Foreign.C (CInt)
 render :: (MonadDraw m) => State -> m ()
 render state = case stateMode state of
   ModeHints -> renderHintsView state
-  ModeSearch {searchFilteredWords} -> renderSearchView state searchFilteredWords
+  ModeSearch {searchFilteredWords, searchHighlightedIndex} ->
+    renderSearchView state searchFilteredWords searchHighlightedIndex
 
-renderSearchView :: (MonadDraw m) => State -> [OCRMatch] -> m ()
-renderSearchView state matches = do
+renderSearchView :: (MonadDraw m) => State -> [OCRMatch] -> Int -> m ()
+renderSearchView state matches highlightedIndex = do
   renderGridLines state
-  setDrawColor colorWhite
-  forM_ matches $ \(OCRMatch {matchStartX, matchStartY, matchEndX, matchEndY}) -> do
+  forM_ (zip [0 ..] matches) $ \(index, OCRMatch {matchStartX, matchStartY, matchEndX, matchEndY}) -> do
+    setDrawColor $ if highlightedIndex == index then colorAccent else colorLightGray
     fillRectVertices (matchStartX, matchStartY) (matchEndX, matchEndY)
 
 renderHintsView :: (MonadDraw m) => State -> m ()