begin scaffolding NormalSearchMode (normal mode, except we are searching)

2025-08-31 02:10:57 +01:00
parent 1cf33c9dd7
commit 3b6dff3081
4 changed files with 18 additions and 3 deletions
--- a/fcore/normal-mode/normal-search-mode.sml
+++ b/fcore/normal-mode/normal-search-mode.sml
@@ -0,0 +1,12 @@
+structure NormalSearchMode =
+struct
+  open AppType
+  open InputMsg
+
+  fun update (app, searchString, msg, time) =
+    case msg of
+      CHAR_EVENT chrCmd => app
+    | KEY_ESC => Finish.clearMode app
+    | RESIZE_EVENT (width, height) => app
+    | WITH_SEARCH_LIST searchList => app
+end