remove code causing tyxml error about Html_types.nmtokens

.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);
                  "")