diff options
| author | John MacFarlane <[email protected]> | 2023-07-12 12:40:16 -0700 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2023-07-12 12:40:16 -0700 |
| commit | fc78ebf496c7aed3ebad3e928f7d2c93a5c4d027 (patch) | |
| tree | 75cfbecdacbfc2b56f904dbbf9fc82f29df64ee6 | |
| parent | 29c5afb305c32129db4e81cd489cd3bd2a14c2e9 (diff) | |
HTML writer: don't make line blocks sensitive to `--wrap`.
Closes #8952.
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 9 |
1 files 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 |