3

2024-03-24 22:55:50 -05:00
parent d24d28e046
commit 2b85b4e5f8
1 changed files with 11 additions and 13 deletions
--- a/.config/init.ml
+++ b/.config/init.ml
@ -60,19 +60,17 @@ let setup_workspace ~container cstore : unit Lwt.t =
        in
        appendchild ~container
          Tyxml_js.Html.(
-            a
+            (* a
               ~a:[ a_class [ "window" ] ]
-              [
+               [ *)
            div
              ~a:[ a_class [ "status" ] ]
-                  [
-                    txt
-                      (F.str "Name: %s; Path: %a" step Uri.pp_hum uri);
-                  ];
+              [ 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