From fc78ebf496c7aed3ebad3e928f7d2c93a5c4d027 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Wed, 12 Jul 2023 12:40:16 -0700 Subject: HTML writer: don't make line blocks sensitive to `--wrap`. Closes #8952. --- src/Text/Pandoc/Writers/HTML.hs | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index 17fe2c945..473fd4c14 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -750,12 +750,9 @@ blockToHtmlInner opts (Para lst) = do case contents of Empty _ | not (isEnabled Ext_empty_paragraphs opts) -> return mempty _ -> return $ H.p contents -blockToHtmlInner opts (LineBlock lns) = - if writerWrapText opts == WrapNone - then blockToHtml opts $ linesToPara lns - else do - htmlLines <- inlineListToHtml opts $ intercalate [LineBreak] lns - return $ H.div ! A.class_ "line-block" $ htmlLines +blockToHtmlInner opts (LineBlock lns) = do + htmlLines <- inlineListToHtml opts $ intercalate [LineBreak] lns + return $ H.div ! A.class_ "line-block" $ htmlLines blockToHtmlInner opts (Div (ident, "section":dclasses, dkvs) (Header level hattr@(hident,hclasses,hkvs) ils : xs)) = do -- cgit v1.2.3