Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

PR#5111: additional class for info tags 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@13982 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Maxence Guesdon 2013-08-05 09:45:54 +00:00
parent d1c0cbee50
commit 6ad069c042
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ocamldoc/odoc_html.ml
View File

@ -671,13 +671,13 @@ class virtual info =
@param indent can be specified not to use the style of info comments;
default is [true].
*)
method html_of_info ?(indent=true) b info_opt =
method html_of_info ?(cls="") ?(indent=true) b info_opt =
match info_opt with
None ->
()
| Some info ->
let module M = Odoc_info in
if indent then bs b "<div class=\"info\">\n";
if indent then bs b ("<div class=\"info "^cls^"\">\n");
(
match info.M.i_deprecated with
None -> ()
@ -1784,7 +1784,7 @@ class html =
if info then
(
if complete then
self#html_of_info ~indent: true
self#html_of_info ~cls: "module top" ~indent: true
else
self#html_of_info_first_sentence
) b m.m_info
@ -1813,7 +1813,7 @@ class html =
if info then
(
if complete then
self#html_of_info ~indent: true
self#html_of_info ~cls: "modtype top" ~indent: true
else
self#html_of_info_first_sentence
) b mt.mt_info
@ -1970,7 +1970,7 @@ class html =
print_DEBUG "html#html_of_class : info" ;
(
if complete then
self#html_of_info ~indent: true
self#html_of_info ~cls: "class top" ~indent: true
else
self#html_of_info_first_sentence
) b c.cl_info
@ -2013,7 +2013,7 @@ class html =
bs b "</pre>";
(
if complete then
self#html_of_info ~indent: true
self#html_of_info ~cls: "classtype top" ~indent: true
else
self#html_of_info_first_sentence
) b ct.clt_info