aboutsummaryrefslogtreecommitdiff
path: root/src/Chelleport/View.hs
diff options
context:
space:
mode:
authorAkshay Nair <phenax5@gmail.com>2024-12-28 22:19:52 +0530
committerAkshay Nair <phenax5@gmail.com>2024-12-28 22:19:52 +0530
commit1d617d9db665ee9df209777626752a19496387b4 (patch)
tree7771e99d818c5145c70e846dac3e964b653e6450 /src/Chelleport/View.hs
parent1bd86a46dcf21a75656edd181f97035739fa238d (diff)
downloadchelleport-1d617d9db665ee9df209777626752a19496387b4.tar.gz
chelleport-1d617d9db665ee9df209777626752a19496387b4.zip
Add text align and center aligns search text
Diffstat (limited to '')
-rw-r--r--src/Chelleport/View.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Chelleport/View.hs b/src/Chelleport/View.hs
index 42c23a9..a1195c7 100644
--- a/src/Chelleport/View.hs
+++ b/src/Chelleport/View.hs
@@ -33,8 +33,7 @@ renderSearchView state searchData@(ModeSearchData {searchFilteredWords, searchHi
fillRectVertices (matchStartX, matchStartY) (matchEndX, matchEndY)
(w, h) <- windowSize
- let textStyle = TextStyle {textColor = colorWhite, textSize = FontSM}
- void $ drawText (w `div` 2, h `div` 2) textStyle (Text.pack $ getSearchText state searchData)
+ void $ drawText (w `div` 2, h `div` 2) searchingTextStyle (Text.pack $ getSearchText state searchData)
renderHintsView :: (MonadDraw m) => State -> ModeHintsData -> m ()
renderHintsView state (ModeHintsData {stateGrid, stateKeySequence, stateIsMatched}) = do