Source file html_fragment.ml
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
open Or_error
let from_mld ~xref_base_uri ~resolver ~output ~warnings_options input =
let page_name = "__fragment_page__" in
let id =
Odoc_model.Paths.Identifier.Mk.page
(None, Odoc_model.Names.PageName.make_std page_name)
in
let input_s = Fs.File.to_string input in
let digest = Digest.file input_s in
let to_html content frontmatter =
let root =
let file =
Odoc_model.Root.Odoc_file.create_page page_name None
Odoc_model.Frontmatter.empty
in
{ Odoc_model.Root.id; file; digest }
in
let page =
Odoc_model.Lang.Page.
{
name = id;
root;
content;
children = [];
digest;
linked = false;
frontmatter;
}
in
let env = Resolver.build_env_for_page resolver page in
Odoc_xref2.Link.resolve_page ~filename:input_s env page
|> Odoc_model.Error.handle_warnings ~warnings_options
>>= fun resolved ->
let page = Odoc_document.Comment.to_ir resolved.content.elements in
let config =
Odoc_html.Config.v ~semantic_uris:false ~indent:false ~flat:false
~open_details:false ~as_json:false ~remap:[] ()
in
let html = Odoc_html.Generator.doc ~config ~xref_base_uri page in
let oc = open_out (Fs.File.to_string output) in
let fmt = Format.formatter_of_out_channel oc in
Format.fprintf fmt "%a@." (Format.pp_print_list (Tyxml.Html.pp_elt ())) html;
close_out oc;
Ok ()
in
match Fs.File.read input with
| Error _ as e -> e
| Ok str -> (
Odoc_loader.read_string id input_s str
|> Odoc_model.Error.handle_errors_and_warnings ~warnings_options
>>= function
| content, frontmatter -> to_html content frontmatter)