a little additional scaffolding for normal mode

ffi/glfw-input.c

@@ -7,6 +7,7 @@ int PRESS = GLFW_PRESS;
 int REPEAT = GLFW_REPEAT;
 int RELEASE = GLFW_RELEASE;
 int KEY_ESC = GLFW_KEY_ESCAPE;
+int KEY_ENTER = GLFW_KEY_ENTER;
 
 void framebufferSizeCallback(GLFWwindow* window, int width, int height) {
   glViewport(0, 0, width, height);

ffi/glfw-input.sml

@@ -33,4 +33,7 @@ struct
   val (KEY_ESC, _) =
     _symbol "KEY_ESC" public : ( unit -> int ) * ( int -> unit );
   val KEY_ESC = KEY_ESC ()
+  val (KEY_ENTER, _) =
+    _symbol "KEY_ENTER" public : ( unit -> int ) * ( int -> unit );
+  val KEY_ENTER = KEY_ENTER ()
 end