add ability to move from normal mode to move mode, and from move mode back to normal mode

fcore/move-mode.sml

@@ -7,9 +7,6 @@ struct
 
   (* todo: resize message, escape button to go back to normal mode *)
 
-  fun makeBlankYAxis length =
-    Vector.tabulate (length, fn _ => {r = 0, g = 0, b = 0, a = 0})
-
   fun getDrawMsg (model: app_type) =
     let
       val
@@ -40,6 +37,9 @@ struct
       (model, [DRAW drawMsg])
     end
 
+  fun makeBlankYAxis length =
+    Vector.tabulate (length, fn _ => {r = 0, g = 0, b = 0, a = 0})
+
   fun moveImageUp (model: app_type) =
     let
       val {squares, ...} = model
@@ -79,8 +79,10 @@ struct
       val squares =
         Vector.mapi
           (fn (idx, yAxis) =>
-             if idx = 0 then makeBlankYAxis (Vector.length squares)
-             else Vector.sub (squares, idx - 1)) squares
+             if idx + 1 = Vector.length squares then
+               makeBlankYAxis (Vector.length squares)
+             else
+               Vector.sub (squares, idx + 1)) squares
 
       val model = AppWith.squares (model, squares)
     in
@@ -94,21 +96,25 @@ struct
       val squares =
         Vector.mapi
           (fn (idx, yAxis) =>
-             if idx + 1 = Vector.length squares then
-               makeBlankYAxis (Vector.length squares)
-             else
-               Vector.sub (squares, idx + 1)) squares
+             if idx = 0 then makeBlankYAxis (Vector.length squares)
+             else Vector.sub (squares, idx - 1)) squares
 
       val model = AppWith.squares (model, squares)
     in
       getDrawMsg model
     end
 
+  fun enterNormalMode model =
+    let val model = AppWith.mode (model, AppType.NORMAL_MODE)
+    in (model, [])
+    end
+
   fun update (model, inputMsg) =
     case inputMsg of
       ARROW_UP => moveImageUp model
     | ARROW_DOWN => moveImageDown model
     | ARROW_LEFT => moveImageLeft model
     | ARROW_RIGHT => moveImageRight model
+    | KEY_ESC => enterNormalMode model
     | _ => (model, [])
 end

fcore/normal-mode.sml

@@ -336,6 +336,11 @@ struct
       (model, fileMsg)
     end
 
+  fun enterMoveMode model =
+    let val model = AppWith.mode (model, AppType.MOVE_MODE)
+    in (model, [])
+    end
+
   fun handleFileBrowserAndPathInNormalMode (model, fileBrowser, path) =
     let val model = AppWith.fileBrowserAndPath (model, fileBrowser, path)
     in (model, [])
@@ -356,6 +361,7 @@ struct
     | KEY_A => updateAlpha model
     | KEY_W => updateCanvasWidth model
     | KEY_H => updateCanvasHeight model
+    | KEY_M => enterMoveMode model
     | RESIZE_WINDOW {width, height} => resizeWindow (model, width, height)
     | UNDO_ACTION => undoAction model
     | REDO_ACTION => redoAction model
@@ -377,4 +383,5 @@ struct
     | KEY_SPACE => enterOrSpaceCoordinates model
     | FILE_BROWSER_AND_PATH {fileBrowser, path} =>
         handleFileBrowserAndPathInNormalMode (model, fileBrowser, path)
+    | KEY_ESC => (model, [])
 end