Module `Tree.Relative_link`

val semantic_uris : bool Stdlib.ref: Whether to generate pretty/semantics links or not.

module Id : sig ... end

val of_path : stop_before:bool -> Paths.Path.t -> [> `A of [> `PCDATA ] | `PCDATA ] Html.elt list
val of_fragment : base:Paths.Identifier.Signature.t -> Paths.Fragment.t -> [> `A of [> `PCDATA ] | `PCDATA ] Html.elt list
val to_sub_element : kind:kind -> string -> [> `Href ] Html.attrib