redraw screen when we change from NORMAL_MODE to NORMAL_SEARCH_MODE, so it is visually clear that we have changed modes

fcore/normal-mode/normal-search-mode.sml

@@ -4,54 +4,6 @@ struct
   open InputMsg
   open MailboxType
 
-  fun onSearchChanged (app: app_type, searchString, tempSearchList, buffer) =
-    let
-      open DrawMsg
-
-      val {buffer, cursorIdx, startLine, windowWidth, windowHeight, ...} = app
-      val mode =
-        NORMAL_SEARCH_MODE
-          {searchString = searchString, tempSearchList = tempSearchList}
-
-      val floatWindowWidth = Real32.fromInt windowWidth
-      val floatWindowHeight = Real32.fromInt windowHeight
-
-      val searchStringPosY = windowHeight - TextConstants.ySpace - 5
-
-      val initialTextAcc = TextBuilder.buildLineToList
-        ( searchString
-        , 5
-        , searchStringPosY
-        , windowWidth
-        , floatWindowWidth
-        , floatWindowHeight
-        )
-
-      val buffer = LineGap.goToLine (startLine, buffer)
-      val startLine = TextWindow.getStartLine
-        (buffer, startLine, cursorIdx, windowWidth, windowHeight)
-
-      val remainingWindowHeight = windowHeight - (TextConstants.ySpace * 2)
-
-      val msgs = TextBuilder.buildWithExisting
-        ( startLine
-        , cursorIdx
-        , buffer
-        , windowWidth
-        , remainingWindowHeight
-        , floatWindowWidth
-        , floatWindowHeight
-        , tempSearchList
-        , searchString
-        , []
-        , initialTextAcc
-        , []
-        )
-    in
-      NormalSearchModeWith.changeTempSearchString
-        (app, buffer, startLine, mode, msgs)
-    end
-
   fun addChr (app: app_type, searchString, chr) =
     let
       val {cursorIdx, buffer, ...} = app
@@ -63,7 +15,8 @@ struct
       val tempSearchList =
         SearchList.buildRange (buffer, searchString, cursorIdx + 1111)
     in
-      onSearchChanged (app, searchString, tempSearchList, buffer)
+      NormalSearchFinish.onSearchChanged
+        (app, searchString, tempSearchList, buffer)
     end
 
   (* return to normal mode, keeping the same searchString and searchList