add horizontal scrolling functionality to SearchBar

2025-09-14 10:07:43 +01:00
parent f1a06f946d
commit 0632f7a969
3 changed files with 17 additions and 5 deletions
--- a/fcore/normal-mode/normal-search-finish.sml
+++ b/fcore/normal-mode/normal-search-finish.sml
@@ -46,6 +46,7 @@ struct
        , floatWindowWidth
        , floatWindowHeight
        , searchCursorIdx
+        , searchScrollColumn
        )

      val buffer = LineGap.goToIdx (cursorIdx, buffer)
@@ -83,6 +84,7 @@ struct
    , newWindowHeight
    , searchCursorIdx
    , tempSearchList
+    , searchScrollColumn
    ) =
    let
      val
@@ -107,6 +109,7 @@ struct
        , floatWindowWidth
        , floatWindowHeight
        , searchCursorIdx
+        , searchScrollColumn
        )

      val cursor =