prefix search string with a / in NORMAL_SEARCH_MODE, just like in Vim

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

@@ -77,7 +77,7 @@ struct
     end
 
   (* save search string and tempSearchList and return to normal mode *)
-  fun finishSearch (app: app_type, searchString, tempSearchList) =
+  fun saveSearch (app: app_type, searchString, tempSearchList) =
     let
       val {buffer, cursorIdx, windowWidth, windowHeight, startLine, ...} = app
       val buffer = LineGap.goToStart buffer
@@ -114,7 +114,7 @@ struct
     case msg of
       CHAR_EVENT chr => addChr (app, searchString, chr)
     | KEY_ESC => exitToNormalMode app
-    | KEY_ENTER => finishSearch (app, searchString, tempSearchList)
+    | KEY_ENTER => saveSearch (app, searchString, tempSearchList)
     | RESIZE_EVENT (width, height) => app
     | WITH_SEARCH_LIST searchList => app
 end

fcore/text-builder.sml

@@ -347,8 +347,25 @@ struct
      * Todo: Add | cursor to show position of search-string-cursor. *)
     fun buildLineToList
       (str, startX, startY, endX, floatWindowWidth, floatWindowHeight) =
+      let
+        val r: Real32.real = 0.67
+        val g: Real32.real = 0.51
+        val b: Real32.real = 0.83
+        val acc = makeChr
+          (#"/", startX, startY, floatWindowWidth, floatWindowHeight, r, g, b)
+        val posX = startX + TC.xSpace
+      in
         loop
-        (0, str, startX, startY, endX, [], floatWindowWidth, floatWindowHeight)
+          ( 0
+          , str
+          , posX
+          , startY
+          , endX
+          , [acc]
+          , floatWindowWidth
+          , floatWindowHeight
+          )
+      end
   end
 
   fun buildTextStringSearch