diff options
| author | Maxence Guesdon <maxence.guesdon@inria.fr> | 2002-06-04 09:21:38 +0000 |
|---|---|---|
| committer | Maxence Guesdon <maxence.guesdon@inria.fr> | 2002-06-04 09:21:38 +0000 |
| commit | bb54244c9f293cc9156f6c1f97816f34e50ff506 (patch) | |
| tree | 1a0469e4d9d2ec24858a9c711ad4b4348e72fe1b /ocamldoc/odoc_html.ml | |
| parent | 6f33a78438ef5e9aed6e825b0bda22f49ab7278f (diff) | |
on enlève les titres dans les premières phrases pour les index et les titres LaTeX comme module Foo : titre
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4874 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'ocamldoc/odoc_html.ml')
| -rw-r--r-- | ocamldoc/odoc_html.ml | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/ocamldoc/odoc_html.ml b/ocamldoc/odoc_html.ml index 74b8f617a..d8371db6a 100644 --- a/ocamldoc/odoc_html.ml +++ b/ocamldoc/odoc_html.ml @@ -374,7 +374,8 @@ class virtual info = (self#html_of_custom info.M.i_custom)^ "</div>\n" - (** Return html code for the first sentence of a description. *) + (** Return html code for the first sentence of a description. + The titles and lists in this first sentence has been removed.*) method html_of_info_first_sentence info_opt = match info_opt with None -> "" @@ -386,7 +387,9 @@ class virtual info = (match info.M.i_desc with None -> "" | Some d when d = [Odoc_info.Raw ""] -> "" - | Some d -> (self#html_of_text (Odoc_info.first_sentence_of_text d))^"\n" + | Some d -> (self#html_of_text + (Odoc_info.text_no_title_no_list + (Odoc_info.first_sentence_of_text d)))^"\n" )^ (if dep then "</font>" else "") ^ "</div>\n" |