add back ticks to doc comment code spans

Author: lubegasimon

src/markdown/generator.ml

@@ -149,6 +149,30 @@ let take_code l =
   in
   (c, rest)
 
+let rec acc_text (l : Block.t) : string =
+  match l with
+  | [] -> ""
+  | h :: rest -> (
+      match h.desc with Paragraph i -> inline_text i ^ acc_text rest | _ -> "")
+
+and inline_text (i : Inline.t) =
+  match i with
+  | [] -> ""
+  | h :: rest -> (
+      match h.desc with
+      | Text s -> s ^ inline_text rest
+      | Source s ->
+          let rec source_text (s' : Source.t) =
+            match s' with
+            | [] -> ""
+            | t :: rest_t -> (
+                match t with
+                | Elt i -> inline_text i ^ source_text rest_t
+                | _ -> "")
+          in
+          code_span (source_text s)
+      | _ -> "")
+
 let rec documented_src (l : DocumentedSrc.t) args nbsps =
   let nbsps' = nbsps ++ (nbsp ++ nbsp) in
   let noop = paragraph noop in
@@ -176,7 +200,11 @@ let rec documented_src (l : DocumentedSrc.t) args nbsps =
               | _ -> Stop_and_keep)
           in
           let f (content, doc, (anchor : Odoc_document.Url.t option)) =
-            let doc = match doc with [] -> noop | doc -> block doc args in
+            let doc =
+              match doc with
+              | [] -> noop
+              | doc -> paragraph (text (acc_text doc))
+            in
             let content =
               match content with
               | `D code (* for record fields and polymorphic variants *) ->
@@ -216,22 +244,18 @@ and item (l : Item.t list) args nbsps =
       | Heading h -> blocks (heading' h args) (continue rest)
       | Declaration { attr = _; anchor; content; doc } ->
           let decl = documented_src content args nbsps in
-          let doc = match doc with [] -> noop | doc -> block doc args in
+          let doc =
+            match doc with [] -> noop | doc -> paragraph (text (acc_text doc))
+          in
           let item' = blocks decl doc in
           if args.generate_links then
             let anchor = match anchor with Some x -> x.anchor | None -> "" in
             blocks (blocks (paragraph (anchor' anchor)) item') (continue rest)
           else blocks item' (continue rest)
-      | Include
-          { attr = _; anchor = _; content = { summary; status; content }; doc }
-        ->
+      | Include { content = { summary; status; content }; _ } ->
           let d =
             if inline_subpage status then item content args nbsps
-            else
-              let s = source_code summary args in
-              match doc with
-              | [] -> paragraph s
-              | doc -> blocks (paragraph s) (block doc args)
+            else paragraph (source_code summary args)
           in
           blocks d (continue rest))