diff --git a/.config/init.ml b/.config/init.ml index a8fd4b1..7503793 100644 --- a/.config/init.ml +++ b/.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 @@ -63,16 +64,24 @@ let setup_workspace ~container cstore : unit Lwt.t = a ~a:[ a_class [ "window" ] ] [ - div - ~a:[ a_class [ "status" ] ] - [ - txt - (F.str "Name: %s; Path: %a" step Uri.pp_hum uri); - ]; - div - ~a:[ a_class [ "output" ] ] - [ txt (F.str "%s" contents) ]; + div ~a:[ a_class [ "status" ] ] [ txt "starting..." ]; ]); + (* Tyxml.Html.( + a + ~a:[ a_class [ "window" ] ] + [ + div + ~a:[ a_class [ "status" ] ] + [ + 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