progress towards adding load functionality'

imperative-shell/file-thread.sml

@@ -171,15 +171,12 @@ struct
   fun getDirList (dir, acc) =
     case OS.FileSys.readDir dir of
       SOME path =>
-        let
-          val _ = print (path ^ "\n")
-          val acc =
-            if OS.FileSys.isDir path then (AppType.FOLDER path) :: acc
-            else if OS.FileSys.isLink path then acc
-            else (AppType.FILE path) :: acc
-        in
+        if OS.FileSys.isDir path then
+          getDirList (dir, AppType.FOLDER path :: acc)
+        else if OS.FileSys.isLink path then
           getDirList (dir, acc)
-        end
+        else
+          getDirList (dir, AppType.FILE path :: acc)
     | NONE => let val acc = List.rev acc in Vector.fromList acc end
 
   fun loadFiles (path, inputMailbox) =

imperative-shell/input-callbacks.sml

@@ -86,6 +86,10 @@ struct
       andalso mods = 0x0
     then
       Mailbox.send (mailbox, KEY_SPACE)
+    else if
+      key = Input.KEY_O () andalso action = Input.PRESS () andalso mods = 0x02
+    then
+      Mailbox.send (mailbox, KEY_CTRL_O)
     else
       ()