From a8594f1c8bdf46f2b9013a504cd24d811aab1ff8 Mon Sep 17 00:00:00 2001 From: Tim-ats-d Date: Tue, 26 May 2026 14:00:14 +0200 Subject: [PATCH] Inline raise tag content in HTML rendering. --- src/html/generator.ml | 8 +++++--- test/generators/html/Markup.html | 2 +- test/generators/html/Ocamlary.html | 4 ++-- test/generators/html/Tag_link.html | 2 +- 4 files changed, 9 insertions(+), 7 deletions(-) diff --git a/src/html/generator.ml b/src/html/generator.ml index 6a30ffca6a..317f145e76 100644 --- a/src/html/generator.ml +++ b/src/html/generator.ml @@ -209,7 +209,7 @@ let text_align = function let cell_kind = function `Header -> Html.th | `Data -> Html.td -let rec block ~config ~resolve (l : Block.t) : flow Html.elt list = +let rec block ?(inline_paragraph=false) ~config ~resolve (l : Block.t) : flow Html.elt list = let as_flow x = (x : phrasing Html.elt list :> flow Html.elt list) in let one (t : Block.one) = let mk_block ?(extra_class = []) mk content = @@ -234,7 +234,7 @@ let rec block ~config ~resolve (l : Block.t) : flow Html.elt list = | Inline i -> if t.attr = [] then as_flow @@ inline ~config ~resolve i else mk_block Html.span (inline ~config ~resolve i) - | Paragraph i -> mk_block Html.p (inline ~config ~resolve i) + | Paragraph i -> if inline_paragraph then mk_block Html.span (inline ~config ~resolve i) else mk_block Html.p (inline ~config ~resolve i) | List (typ, l) -> let mk = match typ with Ordered -> Html.ol | Unordered -> Html.ul in mk_block mk (List.map (fun x -> Html.li (block ~config ~resolve x)) l) @@ -250,7 +250,9 @@ let rec block ~config ~resolve (l : Block.t) : flow Html.elt list = : phrasing Html.elt list :> flow Html.elt list) in - let def = block ~config ~resolve i.Description.definition in + let def = + block ~inline_paragraph:(i.attr = ["raises"]) ~config ~resolve i.Description.definition + in Html.li ~a (term @ (Html.txt " " :: def)) in mk_block Html.ul (List.map item l) diff --git a/test/generators/html/Markup.html b/test/generators/html/Markup.html index 2849b4c313..457a0a9d7d 100644 --- a/test/generators/html/Markup.html +++ b/test/generators/html/Markup.html @@ -311,7 +311,7 @@

Math