console/rootstore
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

3

Browse Source
This commit is contained in:
cqc
2024-03-24 22:55:50 -05:00
parent d24d28e046
commit 65235b5e36
1 changed files with 18 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
.config/init.ml
View File

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