From 1d617d9db665ee9df209777626752a19496387b4 Mon Sep 17 00:00:00 2001
From: Akshay Nair <phenax5@gmail.com>
Date: Sat, 28 Dec 2024 22:19:52 +0530
Subject: Add text align and center aligns search text

---
 src/Chelleport/View.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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

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
-- 
cgit v1.3.1