progress with viJ to move cursor downwards

fcore/app-with.sml

@@ -4,38 +4,24 @@ struct
 
   fun bufferAndSize (app: app_type, newBuffer, newWidth, newHeight) =
     let
-      val
-        { buffer = _
-        , windowWidth = _
-        , windowHeight = _
-        , startLine
-        , cursorIdx
-        , preferredColumn
-        } = app
+      val {buffer = _, windowWidth = _, windowHeight = _, startLine, cursorIdx} =
+        app
     in
       { buffer = newBuffer
       , windowWidth = newWidth
       , windowHeight = newHeight
       , startLine = startLine
       , cursorIdx = cursorIdx
-      , preferredColumn = preferredColumn
       }
     end
 
-  fun bufferAndCursorIdx (app: app_type, newBuffer, newCursorIdx, newColumn) =
+  fun bufferAndCursorIdx (app: app_type, newBuffer, newCursorIdx) =
     let
-      val
-        { buffer = _
-        , cursorIdx = _
-        , preferredColumn = _
-        , windowWidth
-        , windowHeight
-        , startLine
-        } = app
+      val {buffer = _, cursorIdx = _, windowWidth, windowHeight, startLine} =
+        app
     in
       { buffer = newBuffer
       , cursorIdx = newCursorIdx
-      , preferredColumn = newColumn
       , windowWidth = windowWidth
       , windowHeight = windowHeight
       , startLine = startLine