diff options
| author | Maxence Guesdon <maxence.guesdon@inria.fr> | 2009-12-18 11:52:23 +0000 |
|---|---|---|
| committer | Maxence Guesdon <maxence.guesdon@inria.fr> | 2009-12-18 11:52:23 +0000 |
| commit | e904577b6b0e68911c9169eb7c1629f6f3b9534c (patch) | |
| tree | fb7538d389604e899974c0d4b2004d09a76fa7d5 /ocamldoc/odoc_misc.ml | |
| parent | 758e4cd86078a89af5790872f9704c5ea019b4e7 (diff) | |
PR#4914: ability to specify a text for links to elements
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@9477 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'ocamldoc/odoc_misc.ml')
| -rw-r--r-- | ocamldoc/odoc_misc.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/ocamldoc/odoc_misc.ml b/ocamldoc/odoc_misc.ml index ac2e45828..16e13668e 100644 --- a/ocamldoc/odoc_misc.ml +++ b/ocamldoc/odoc_misc.ml @@ -124,7 +124,9 @@ let rec string_of_text t = | Odoc_types.Latex s -> "{% "^s^" %}" | Odoc_types.Link (s, t) -> "["^s^"]"^(string_of_text t) - | Odoc_types.Ref (name, _) -> + | Odoc_types.Ref (name, _, Some text) -> + Printf.sprintf "[%s]" (string_of_text text) + | Odoc_types.Ref (name, _, None) -> iter (Odoc_types.Code name) | Odoc_types.Superscript t -> "^{"^(string_of_text t)^"}" @@ -274,7 +276,7 @@ let rec text_no_title_no_list t = | Odoc_types.Module_list l -> list_concat (Odoc_types.Raw ", ") (List.map - (fun s -> Odoc_types.Ref (s, Some Odoc_types.RK_module)) + (fun s -> Odoc_types.Ref (s, Some Odoc_types.RK_module, None)) l ) | Odoc_types.Index_list -> [] |