From df7caee5d6df4591a2c41aae8aca7eb73da69d0b Mon Sep 17 00:00:00 2001
From: cqc <cqc@conrailqualitycontent.net>
Date: Fri, 29 Mar 2024 17:13:14 -0500
Subject: [PATCH] remove code causing tyxml error about Html_types.nmtokens

---
 .config/init.ml | 26 ++------------------------
 1 file changed, 2 insertions(+), 24 deletions(-)

diff --git a/.config/init.ml b/.config/init.ml
index 7503793..b233e52 100644
--- a/.config/init.ml
+++ b/.config/init.ml
@@ -60,12 +60,7 @@ let setup_workspace ~container cstore : unit Lwt.t =
                (Headers.get headers "path"))
         in
         appendchild ~container
-          Tyxml_js.Html.(
-            a
-              ~a:[ a_class [ "window" ] ]
-              [
-                div ~a:[ a_class [ "status" ] ] [ txt "starting..." ];
-              ]);
+          Tyxml_js.Html.(a [ div [ txt "starting..." ] ]);
         (* Tyxml.Html.(
            a
              ~a:[ a_class [ "window" ] ]
@@ -99,24 +94,7 @@ let setup_storeview ~container ~textbox ~(storeview : Store.t Lwt.t) :
            (fun acc tok ->
              match tok with
              | step, _tree ->
-                 let a =
-                   Tyxml_js.Html.(
-                     a
-                       ~a:
-                         [
-                           a_class [ "list-group-item" ];
-                           a_onclick (fun _ ->
-                               textbox##.value :=
-                                 (Js.string acc)##trim;
-                               Lwt.async (fun () ->
-                                   resize ~container ~textbox ()
-                                   >>= fun () ->
-                                   textbox##focus;
-                                   Lwt.return_unit);
-                               true);
-                         ]
-                       [ txt step ])
-                 in
+                 let a = Tyxml_js.Html.(a [ txt step ]) in
                  Dom.appendChild storeview_container
                    (Tyxml_js.To_dom.of_a a);
                  "")