diff options
author | Florian Angeletti <octa@polychoron.fr> | 2018-10-24 12:00:49 +0200 |
---|---|---|
committer | GitHub <noreply@github.com> | 2018-10-24 12:00:49 +0200 |
commit | 50da04842b0c999d977bdb21c1dd3ee5f432f485 (patch) | |
tree | 79c837b86e19208128b834ed7025eecf0a6a17bc /ocamldoc/odoc_man.ml | |
parent | fcb68de43b5cd257ea40c80c5b0091b63668c103 (diff) | |
download | ocaml-50da04842b0c999d977bdb21c1dd3ee5f432f485.tar.gz |
ocamldoc, manpage backend: unwrap module comment docstrings (#2114)
* unwrap non-code doctstring
* use .SS for ocamldoc titles
* update Changes
Diffstat (limited to 'ocamldoc/odoc_man.ml')
-rw-r--r-- | ocamldoc/odoc_man.ml | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/ocamldoc/odoc_man.ml b/ocamldoc/odoc_man.ml index 04e66e70aa..5b1d1e5353 100644 --- a/ocamldoc/odoc_man.ml +++ b/ocamldoc/odoc_man.ml @@ -319,7 +319,8 @@ class man = self#man_of_text2 b t; bs b "\n.sp\n" | Odoc_info.Title (_, _, t) -> - self#man_of_text2 b [Odoc_info.Code (Odoc_info.string_of_text t)] + let txt = Odoc_info.string_of_text t in + bp b ".SS %s\n" txt | Odoc_info.Latex _ -> (* don't care about LaTeX stuff in HTML. *) () @@ -810,13 +811,13 @@ class man = (** Print groff string for a module comment.*) method man_of_module_comment b text = bs b "\n.PP\n"; - self#man_of_text b [Code ("=== "^(Odoc_misc.string_of_text text)^" ===")]; + self#man_of_text b text; bs b "\n.PP\n" (** Print groff string for a class comment.*) method man_of_class_comment b text = bs b "\n.PP\n"; - self#man_of_text b [Code ("=== "^(Odoc_misc.string_of_text text)^" ===")]; + self#man_of_text b text; bs b "\n.PP\n" method man_of_recfield b modname f = |