Integrate simplified json index output

src/driver/bin/odoc_driver.ml

@@ -71,8 +71,8 @@ let run_inner ~odoc_dir ~odocl_dir ~index_dir ~mld_dir ~compile_grep ~link_grep
           output
         in
         let () =
-          Compile.html_generate ~occurrence_file ~remaps ~generate_json html_dir
-            linked
+          Compile.html_generate ~occurrence_file ~remaps ~generate_json
+            ~simplified_search_output:false html_dir linked
         in
         let _ = Odoc.support_files html_dir in
         Stats.stats.finished <- true;

src/driver/bin/odoc_driver_monorepo.ml

@@ -63,7 +63,7 @@ let run path extra_pkgs extra_libs
         in
         let () =
           Compile.html_generate ~occurrence_file ~remaps:[] ~generate_json
-            html_dir linked
+            ~simplified_search_output:false html_dir linked
         in
         let _ = Odoc.support_files html_dir in
         Stats.stats.finished <- true;

src/driver/bin/odoc_driver_voodoo.ml

@@ -66,7 +66,7 @@ let run package_name blessed actions odoc_dir odocl_dir
         in
         let () =
           Compile.html_generate ~occurrence_file ~remaps:[] ~generate_json
-            html_dir linked
+            ~simplified_search_output:true html_dir linked
         in
         let _ = Odoc.support_files html_dir in
         ()

src/driver/compile.ml

@@ -282,7 +282,8 @@ let sherlodoc_index_one ~output_dir (index : Odoc_unit.index) =
   Sherlodoc.index ~format:`js ~inputs ~dst ();
   rel_path
 
-let html_generate ~occurrence_file ~remaps ~generate_json output_dir linked =
+let html_generate ~occurrence_file ~remaps ~generate_json
+    ~simplified_search_output output_dir linked =
   let tbl = Hashtbl.create 10 in
   let _ = OS.Dir.create output_dir |> Result.get_ok in
   Sherlodoc.js Fpath.(output_dir // Sherlodoc.js_file);
@@ -292,7 +293,8 @@ let html_generate ~occurrence_file ~remaps ~generate_json output_dir linked =
         ({ roots; output_file; json; search_dir = _; sidebar } as index :
           Odoc_unit.index) =
       let () =
-        Odoc.compile_index ~json ~occurrence_file ~output_file ~roots ()
+        Odoc.compile_index ~json ~occurrence_file ~output_file ~roots
+          ~simplified:false ~wrap:false ()
       in
       let sidebar =
         match sidebar with
@@ -302,6 +304,11 @@ let html_generate ~occurrence_file ~remaps ~generate_json output_dir linked =
             Odoc.sidebar_generate
               ~output_file:Fpath.(output_dir // pkg_dir / "sidebar.json")
               ~json:true index.output_file ();
+            if simplified_search_output then
+              Odoc.compile_index ~json:true ~occurrence_file
+                ~output_file:Fpath.(output_dir // pkg_dir / "index.js")
+                ~simplified:true ~wrap:true ~roots ();
+
             Some output_file
       in
       (sherlodoc_index_one ~output_dir index, sidebar)

src/driver/compile.mli

@@ -18,6 +18,7 @@ val html_generate :
   occurrence_file:Fpath.t ->
   remaps:(string * string) list ->
   generate_json:bool ->
+  simplified_search_output:bool ->
   Fpath.t ->
   linked list ->
   unit

src/driver/odoc.ml

@@ -168,19 +168,24 @@ let link ?(ignore_output = false) ~custom_layout ~input_file:file ?output_file
   ignore @@ Cmd_outputs.submit log desc cmd (Some output_file)
 
 let compile_index ?(ignore_output = false) ~output_file ?occurrence_file ~json
-    ~roots () =
+    ~roots ~simplified ~wrap () =
   let roots =
     List.fold_left (fun c r -> Cmd.(c % "--root" % p r)) Cmd.empty roots
   in
   let json = if json then Cmd.v "--json" else Cmd.empty in
+  let simplified =
+    if simplified then Cmd.v "--simplified-json" else Cmd.empty
+  in
+  let wrap = if wrap then Cmd.v "--wrap-json" else Cmd.empty in
   let occ =
     match occurrence_file with
     | None -> Cmd.empty
     | Some f -> Cmd.(v "--occurrences" % p f)
   in
   let cmd =
     Cmd.(
-      !odoc % "compile-index" %% json %% v "-o" % p output_file %% roots %% occ)
+      !odoc % "compile-index" %% json %% simplified %% wrap %% v "-o"
+      % p output_file %% roots %% occ)
   in
   let desc =
     Printf.sprintf "Generating index for %s" (Fpath.to_string output_file)

src/driver/odoc.mli

@@ -51,6 +51,8 @@ val compile_index :
   ?occurrence_file:Fpath.t ->
   json:bool ->
   roots:Fpath.t list ->
+  simplified:bool ->
+  wrap:bool ->
   unit ->
   unit