3

.config/init.ml

@@ -2,6 +2,7 @@ open Js_of_ocaml
 open Js_of_ocaml_tyxml
 open Lwt
 open Store
+open Tyxml
 
 let by_id s = Dom_html.getElementById s
 
@@ -60,6 +61,12 @@ let setup_workspace ~container cstore : unit Lwt.t =
         in
         appendchild ~container
           Tyxml_js.Html.(
+            a
+              ~a:[ a_class [ "window" ] ]
+              [
+                div ~a:[ a_class [ "status" ] ] [ txt "starting..." ];
+              ]);
+        (* Tyxml.Html.(
            a
              ~a:[ a_class [ "window" ] ]
              [
@@ -68,11 +75,13 @@ let setup_workspace ~container cstore : unit Lwt.t =
                  [
                    txt
                      (F.str "Name: %s; Path: %a" step Uri.pp_hum uri);
-                  ];
+                 ]
+               ;
                  div
                    ~a:[ a_class [ "output" ] ]
                    [ txt (F.str "%s" contents) ];
-              ]);
+               ;
+             ]);*)
         Lwt.return_unit)
       csl
   in