address remainning todo-notes, which had to do with updating the searchList when we insert into a buffer.

fcore/normal-mode/make-normal-delete.sml

@@ -185,11 +185,10 @@ struct
                 (app, cursorIdx, buffer, searchList, time, [])
             else
               let
-                (* todo: have not implemented search-list-rebuilding 
-                 * for insertions yet *)
                 val (buffer, searchList) = SearchList.deleteBufferAndSearchList
                   (newCursorIdx, 1, buffer, searchList, dfa)
-                val buffer = LineGap.insert (newCursorIdx, " ", buffer)
+                val (buffer, searchList) = SearchList.insert
+                  (newCursorIdx, " ", buffer, searchList, dfa)
               in
                 helpRemoveLineBreaks
                   (app, buffer, newCursorIdx, count - 1, time, searchList, dfa)
@@ -233,11 +232,10 @@ struct
             NormalFinish.clearMode app
           else
             let
-              (* todo: have not implemented search-list-rebuilding 
-               * for insertions yet *)
               val (buffer, searchList) = SearchList.deleteBufferAndSearchList
                 (newCursorIdx, 1, buffer, searchList, dfa)
-              val buffer = LineGap.insert (newCursorIdx, " ", buffer)
+              val (buffer, searchList) = SearchList.insert
+                (newCursorIdx, " ", buffer, searchList, dfa)
             in
               helpRemoveLineBreaks
                 (app, buffer, newCursorIdx, count - 1, time, searchList, dfa)

fcore/normal-mode/normal-mode.sml

@@ -26,28 +26,17 @@ struct
     end
 
   local
-    fun loop (app: app_type, cursorIdx, buffer, count, time) =
+    fun loop (app: app_type, cursorIdx, buffer, searchList, count, time) =
       if count = 0 then
-        let
-          open MailboxType
-
-          val {cursorIdx = origCursorIdx, dfa, ...} = app
-          val buffer = LineGap.goToStart buffer
-
-          (* todo: try updating searchList incrementally 
-           * instead of rebuilding from scratch *)
-          val (buffer, searchList) = SearchList.build (buffer, dfa)
-        in
-          NormalDelete.finishAfterDeletingBuffer
-            (app, origCursorIdx, buffer, searchList, time, [])
-        end
+        NormalDelete.finishAfterDeletingBuffer
+          (app, #cursorIdx app, buffer, searchList, time, [])
       else
         let
           val buffer = LineGap.goToIdx (cursorIdx, buffer)
           val lineStart = Cursor.vi0 (buffer, cursorIdx)
 
-          (* todo: update searchList based on insert *)
-          val buffer = LineGap.insert (lineStart, "  ", buffer)
+          val (buffer, searchList) = SearchList.insert
+            (lineStart, " ", buffer, searchList, #dfa app)
 
           val buffer = LineGap.goToIdx (lineStart, buffer)
           val lineEnd = Cursor.viDlr (buffer, lineStart, 1)
@@ -56,11 +45,13 @@ struct
 
           val count = if lineEnd = nextLine then 0 else count - 1
         in
-          loop (app, nextLine, buffer, count, time)
+          loop (app, nextLine, buffer, searchList, count, time)
         end
   in
     fun indnetLine (app: app_type, count, time) =
-      loop (app, #cursorIdx app, #buffer app, count, time)
+      let val {buffer, searchList, cursorIdx, ...} = app
+      in loop (app, cursorIdx, buffer, searchList, count, time)
+      end
   end
 
   local