diff --git a/src/Fmt_odoc.ml b/src/Fmt_odoc.ml index 1000985183..19d08ed407 100644 --- a/src/Fmt_odoc.ml +++ b/src/Fmt_odoc.ml @@ -193,7 +193,7 @@ and fmt_list_light c kind items = match kind with `Unordered -> fmt "- " | `Ordered -> fmt "+ " in let fmt_item elems = - line_start $ vbox 0 (fmt_nestable_block_elements c elems) + line_start $ hovbox 0 (fmt_nestable_block_elements c elems) in vbox 0 (list items "@," fmt_item) diff --git a/test/passing/doc_comments.mli.ref b/test/passing/doc_comments.mli.ref index fafcef1c9e..5a87c98adf 100644 --- a/test/passing/doc_comments.mli.ref +++ b/test/passing/doc_comments.mli.ref @@ -145,153 +145,21 @@ val x : x list with long lines: - - xxx - xxx - xxx - xxx - xxx - xxx - xxx - xxx - xxx - xxx - xxx - xxx - xxx - xxx - xxx - xxx - xxx - xxx - xxx - xxx - xxx - xxx - xxx - xxx - - yyy - yyy - yyy - yyy - yyy - yyy - yyy - yyy - yyy - yyy - yyy - yyy - yyy - yyy - yyy - yyy - yyy - yyy - yyy - yyy - yyy - yyy - yyy - yyy - - zzz - zzz - zzz - zzz - zzz - zzz - zzz - zzz - zzz - zzz - zzz - zzz - zzz - zzz - zzz - zzz - zzz - zzz - zzz - zzz - zzz - zzz - zzz - zzz + - xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx + xxx xxx xxx xxx xxx xxx xxx + - yyy yyy yyy yyy yyy yyy yyy yyy yyy yyy yyy yyy yyy yyy yyy yyy yyy + yyy yyy yyy yyy yyy yyy yyy + - zzz zzz zzz zzz zzz zzz zzz zzz zzz zzz zzz zzz zzz zzz zzz zzz zzz + zzz zzz zzz zzz zzz zzz zzz enumerated list with long lines: - + xxx - xxx - xxx - xxx - xxx - xxx - xxx - xxx - xxx - xxx - xxx - xxx - xxx - xxx - xxx - xxx - xxx - xxx - xxx - xxx - xxx - xxx - xxx - xxx - + yyy - yyy - yyy - yyy - yyy - yyy - yyy - yyy - yyy - yyy - yyy - yyy - yyy - yyy - yyy - yyy - yyy - yyy - yyy - yyy - yyy - yyy - yyy - yyy - + zzz - zzz - zzz - zzz - zzz - zzz - zzz - zzz - zzz - zzz - zzz - zzz - zzz - zzz - zzz - zzz - zzz - zzz - zzz - zzz - zzz - zzz - zzz - zzz + + xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx + xxx xxx xxx xxx xxx xxx xxx + + yyy yyy yyy yyy yyy yyy yyy yyy yyy yyy yyy yyy yyy yyy yyy yyy yyy + yyy yyy yyy yyy yyy yyy yyy + + zzz zzz zzz zzz zzz zzz zzz zzz zzz zzz zzz zzz zzz zzz zzz zzz zzz + zzz zzz zzz zzz zzz zzz zzz list with sub lists: @@ -369,9 +237,7 @@ end (** {[ b ]} *) -(** - Odoc - don't - parse +(** - Odoc don't parse multiple paragraph in a list *) diff --git a/test/passing/js_sig.mli b/test/passing/js_sig.mli index acd163a0bf..60abc80d4b 100644 --- a/test/passing/js_sig.mli +++ b/test/passing/js_sig.mli @@ -5,3 +5,8 @@ exception First_exception (** Second documentation comment. *) exception Second_exception + +[@@@ocamlformat "parse-docstrings=true"] +[@@@ocamlformat "wrap-comments=true"] + +(** {e foooooooo oooooo oooo oooo ooooo oooo ooooo} {i fooooo ooooo ooo oooooo oo oooooo oooo} {b fooooooo oooooo oooooo oooooo oooooo ooooooo} *) diff --git a/test/passing/js_sig.mli.ref b/test/passing/js_sig.mli.ref index acd163a0bf..6c42c7c710 100644 --- a/test/passing/js_sig.mli.ref +++ b/test/passing/js_sig.mli.ref @@ -5,3 +5,9 @@ exception First_exception (** Second documentation comment. *) exception Second_exception + +[@@@ocamlformat "parse-docstrings=true"] +[@@@ocamlformat "wrap-comments=true"] + +(** {e foooooooo oooooo oooo oooo ooooo oooo ooooo} {i fooooo ooooo ooo oooooo oo oooooo + oooo} {b fooooooo oooooo oooooo oooooo oooooo ooooooo} *)