From 65235b5e36fb2861654dd7c459d48c748a89f623 Mon Sep 17 00:00:00 2001
From: cqc <cqc@conrailqualitycontent.net>
Date: Sun, 24 Mar 2024 22:55:50 -0500
Subject: [PATCH] 3

---
 .config/init.ml | 27 ++++++++++++++++++---------
 1 file changed, 18 insertions(+), 9 deletions(-)

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