jon.recoil.org
this repo has no description
1module Url = Odoc_document.Url
2
3let make ~config ~url doc children =
4 let filename = Link.Path.as_filename ~config url in
5 let content ppf = Format.fprintf ppf "%s" (Renderer.to_string doc) in
6 { Odoc_document.Renderer.filename; content; children; path = url; assets = [] }
7
8let make_src ~config ~url _title block_list =
9 let filename = Link.Path.as_filename ~config url in
10 let content (ppf : Format.formatter) =
11 let root_block = Renderer.Block.Blocks block_list in
12 let doc = root_block in
13 Format.fprintf ppf "%s" (Renderer.to_string doc)
14 in
15 { Odoc_document.Renderer.filename; content; children = []; path = url; assets = [] }