fix and test

ocaml-ppx · Aug 18, 2019 · d9c6939 · d9c6939
1 parent 00f64d9
commit d9c6939
Show file tree

Hide file tree

Showing 4 changed files with 25 additions and 148 deletions.
diff --git 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
@@ -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
@@ -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
@@ -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} *)