diff options
Diffstat (limited to '')
| -rw-r--r-- | TODO.norg | 1 | ||||
| -rw-r--r-- | src/Chelleport/AppState.hs | 2 |
2 files changed, 1 insertions, 2 deletions
@@ -1,5 +1,4 @@ * Current - - ( ) Sort ocr match result by position on screen (top to bottom, left to right) - ( ) TextStyle for drawText - ( ) Middle click - ( ) Separate state for hint modes into ModeHint constructor diff --git a/src/Chelleport/AppState.hs b/src/Chelleport/AppState.hs index 6c2de9c..4c8e0a8 100644 --- a/src/Chelleport/AppState.hs +++ b/src/Chelleport/AppState.hs @@ -77,7 +77,7 @@ update _ state (IncrementHighlightIndex n) = do action <- traverse (fmap MoveMousePosition . wordPosition) highlightedWord pure (state {stateRepetition = 1, stateMode = mode {searchHighlightedIndex = highlightedIndexClamped}}, action) where - highlightedWord = searchFilteredWords mode `itemAt` highlightedIndex + highlightedWord = searchFilteredWords mode `itemAt` highlightedIndexClamped highlightedIndex = searchHighlightedIndex mode + n highlightedIndexClamped = if highlightedIndex < 0 |