cleaned up

oplevel.ml

@@ -69,13 +69,12 @@ let () =
 
   (* Thread which is woken up when the main window is closed. *)
   let _waiter, _wakener = Lwt.wait () in
-  F.pr "oplevel.ml: Toploop.initialize_toplevel_env@.";
-  Toploop.initialize_toplevel_env ();
 
+  (* F.pr "oplevel.ml: Toploop.initialize_toplevel_env@.";
+     Toploop.initialize_toplevel_env (); *)
   let rootrepo =
-    Lwt_main.run
-      (Store.init_default
-         (F.str "%s/console/rootstore.git" Secrets.giturl))
+    Store.init_default
+      (F.str "%s/console/rootstore.git" Secrets.giturl)
   in
 
   let ui =
@@ -86,10 +85,6 @@ let () =
     ~f:
       (Some
          (fun _window key _int state mods ->
-           (* F.epr
-              "GLFW.setKeyCallback ~f: _win key=%a int=%d state=%a \
-               mods=%a@."
-              pp_key key int pp_key_action state pp_mods mods; *)
            Lwt.async (fun () ->
                Ogui.Ui.keycallback ui state key mods >>= fun _ ->
                Lwt.return_unit)))
@@ -99,13 +94,6 @@ let () =
     ~f:
       (Some
          (fun _window ch ->
-           (* let uc = Uchar.of_int ch in
-
-              F.epr "GLFW.setCharCallback ~f: _win ch=%d(%a)@." ch
-                 F.(option string)
-                 (if Uchar.is_char uc then
-                    Some (String.make 1 @@ Uchar.to_char uc)
-                  else None); *)
            Lwt.async (fun () ->
                Ogui.Ui.chrcallback ui ch >>= fun _ -> Lwt.return_unit)))
   |> ignore;