render at-tag, key, and definition on one line

Author: lubegasimon

src/markdown/generator.ml

@@ -107,8 +107,13 @@ let rec block (l : Block.t) args =
           in
           let f i =
             let key = inline i.Description.key args in
-            let def = block i.Description.definition args in
-            blocks (paragraph (join (text "@") key ++ text " : ")) def
+            let def =
+              match i.Description.definition with
+              | [] -> text ""
+              | h :: _ -> (
+                  match h.desc with Inline i -> inline i args | _ -> text "")
+            in
+            paragraph (join (text "@") (join key (text ":")) ++ def)
           in
           blocks (blocks' (List.map f descrs)) (continue rest)
       | Source content ->

test/integration/markdown.t/run.t

@@ -134,9 +134,7 @@
 
   David Sheets is the author.
 
-  @author  : 
-  
-  David Sheets
+  @author: David Sheets
 
   ######       module Foo : sig ... end
 
@@ -340,9 +338,7 @@
 
   David Sheets is the author.
 
-  @author  : 
-  
-  David Sheets
+  @author: David Sheets
 
   <a id="module-Foo"></a>