Allow multiple output files

Author: jonludlam

src/document/renderer.ml

@@ -15,11 +15,11 @@ let traverse ~f t =
     f node.filename node.content;
     List.iter aux node.children
   in
-  aux t
+  List.iter aux t
 
 type 'a t = {
   name : string;
-  render : 'a -> Types.Page.t -> page;
+  render : 'a -> Types.Page.t -> page list;
   files_of_url : Url.Path.t -> Fpath.t list;
 }
 

src/html/generator.ml

@@ -375,12 +375,12 @@ module Page = struct
         | `Inline -> Some 0)
 
   let rec include_ ?theme_uri indent { Subpage.content; _ } =
-    [ page ?theme_uri indent content ]
+    page ?theme_uri indent content
 
   and subpages ?theme_uri indent subpages =
     Utils.list_concat_map ~f:(include_ ?theme_uri indent) subpages
 
-  and page ?theme_uri ?support_uri indent p =
+  and page ?theme_uri ?support_uri indent p : Odoc_document.Renderer.page list =
     let { Page.title; header; items = i; url } =
       Doctree.Labels.disambiguate_page p
     and subpages =
@@ -393,11 +393,8 @@ module Page = struct
     let toc = Toc.from_items ~resolve ~path:url i in
     let header = items ~resolve header in
     let content = (items ~resolve i :> any Html.elt list) in
-    let page =
-      Tree.make ?theme_uri ?support_uri ~indent ~header ~toc ~url title content
-        subpages
-    in
-    page
+    Tree.make ?theme_uri ?support_uri ~indent ~header ~toc ~url title content
+      subpages
 end
 
 let render ?theme_uri ?support_uri ~indent page =

src/html/generator.mli

@@ -5,7 +5,7 @@ val render :
   ?support_uri:Tree.uri ->
   indent:bool ->
   Types.Page.t ->
-  Renderer.page
+  Renderer.page list
 
 val doc :
   xref_base_uri:string ->

src/html/tree.ml

@@ -131,6 +131,6 @@ let make ?theme_uri ?support_uri ~indent ~url ~header ~toc title content
     page_creator ?theme_uri ?support_uri ~url title header toc content
   in
   let content ppf = (Html.pp ~indent ()) ppf html in
-  { Odoc_document.Renderer.filename; content; children }
+  [ { Odoc_document.Renderer.filename; content; children } ]
 
 let open_details = ref true

src/html/tree.mli

@@ -37,7 +37,7 @@ val make :
   string ->
   Html_types.div_content Html.elt list ->
   Renderer.page list ->
-  Renderer.page
+  Renderer.page list
 (** [make ?theme_uri (body, children)] calls "the page creator" to turn [body]
     into an [[ `Html ] elt]. If [theme_uri] is provided, it will be used to
     locate the theme files, otherwise the HTML output directory is used. *)

src/latex/generator.ml

@@ -462,7 +462,7 @@ module Page = struct
     page
 end
 
-let render ~with_children page = Page.page ~with_children page
+let render ~with_children page = [ Page.page ~with_children page ]
 
 let files_of_url url =
   if Link.is_class_or_module_path url then [ Link.filename url ] else []

src/latex/generator.mli

@@ -7,4 +7,4 @@ val files_of_url : Odoc_document.Url.Path.t -> Fpath.t list
 val render :
   with_children:bool ->
   Odoc_document.Types.Page.t ->
-  Odoc_document.Renderer.page
+  Odoc_document.Renderer.page list

src/odoc/man_page.ml

@@ -1,6 +1,6 @@
 open Odoc_document
 
-let render _ page = Odoc_manpage.Generator.render page
+let render _ page = [ Odoc_manpage.Generator.render page ]
 
 let files_of_url url = Odoc_manpage.Link.files_of_url url