jon.recoil.org / js_top_worker
this repo has no description
fork atom

Fix docsite sidebar rendering, CSS theming, and support file deployment

- Fix sidebar kindBadge: map leaf-page→pg, module-type→MT, etc. (was
showing "L" for leaf-page entries)
- Stop escaping sidebar content HTML (entries contain <code> tags)
- Fix inline sidebar JSON: use Html.cdata_script instead of Html.txt
to prevent HTML-escaping inside <script> tags
- Add --xo-* CSS custom properties for x-ocaml cells in light/dark themes
- Fix support file registration: use 'opam var share' instead of
'opam var x-ocaml:share' (works without x-ocaml being an opam package)
- Suppress empty <li> from config-only extension tags (@x-ocaml.*)
- Add worker_url field to jtw opam findlib_index.json
- Refactor x-ocaml.js worker URL discovery to support both direct
worker_url and day10-style version/content_hash paths

Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>

Jon Ludlam's Agent e2c1d0c8 5bbb1b6e

+10 -2
unified split
+10 -2
bin/jtw.ml
··· 233 233 in 234 234 (* TODO: dep_paths should also contribute META paths once we have full universe info *) 235 235 let _ = dep_paths in 236 - let findlib_json = `Assoc [("meta_files", `List metas_json)] in 236 + let compiler_field = 237 + if no_worker then [] 238 + else [("compiler", `Assoc [("worker_url", `String "worker.js")])] 239 + in 240 + let findlib_json = `Assoc (("meta_files", `List metas_json) :: compiler_field) in 237 241 Out_channel.with_open_bin 238 242 Fpath.(output_dir / "findlib_index.json" |> to_string) 239 243 (fun oc -> Printf.fprintf oc "%s\n" (Yojson.Safe.to_string findlib_json)); ··· 511 515 pkg_path ^ "/" ^ local_meta_path) 512 516 pkg_results 513 517 in 514 - let root_index = `Assoc [("meta_files", `List (List.map (fun s -> `String s) all_metas))] in 518 + let compiler_field = 519 + if no_worker then [] 520 + else [("compiler", `Assoc [("worker_url", `String "worker.js")])] 521 + in 522 + let root_index = `Assoc (("meta_files", `List (List.map (fun s -> `String s) all_metas)) :: compiler_field) in 515 523 Out_channel.with_open_bin Fpath.(output_dir / "findlib_index.json" |> to_string) 516 524 (fun oc -> Printf.fprintf oc "%s\n" (Yojson.Safe.to_string root_index)); 517 525