scaffolding for backspace functionality

2025-09-01 02:52:05 +01:00
parent 3f7009bf09
commit f4a4dd9161
7 changed files with 13 additions and 0 deletions
--- a/fcore/normal-mode/normal-search-mode.sml
+++ b/fcore/normal-mode/normal-search-mode.sml
@@ -110,9 +110,14 @@ struct
        (app, buffer, searchString, tempSearchList, startLine, mode, msgs)
    end

+  (* todo: implement *)
+  fun backspace (app: app_type, searchString, tempSearchList) =
+    raise Fail "normal-search-mode: KEY_BACKSPACE unimplemented"
+
  fun update (app, {searchString, tempSearchList}, msg, time) =
    case msg of
      CHAR_EVENT chr => addChr (app, searchString, chr)
+    | KEY_BACKSPACE => backspace (app, searchString, tempSearchList)
    | KEY_ESC => exitToNormalMode app
    | KEY_ENTER => saveSearch (app, searchString, tempSearchList)
    | RESIZE_EVENT (width, height) => app