diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2022-04-22 17:18:56 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2022-04-22 17:20:21 -0700 |
| commit | ef69474a6907b0abe4185ec714891dcdfef44618 (patch) | |
| tree | b73f6dbcf85b023c91a092dfa057e743f043ef0b | |
| parent | 281e2599dc56e837b06051a0bf1ea8b1511d107e (diff) | |
Markdown writer: disable soft wrapping when `hard_line_breaks` enabled.
We were already doing this for `markdown`; this commit does
the same thing for `markua` and `commonmark` and `gfm`.
Closes #8035.
| -rw-r--r-- | src/Text/Pandoc/Writers/Markdown.hs | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs index f10290ec0..f6a207991 100644 --- a/src/Text/Pandoc/Writers/Markdown.hs +++ b/src/Text/Pandoc/Writers/Markdown.hs @@ -80,14 +80,18 @@ writeCommonMark opts document = -- properly. enableExtension Ext_all_symbols_escapable $ enableExtension Ext_intraword_underscores $ - writerExtensions opts } + writerExtensions opts , + writerWrapText = + if isEnabled Ext_hard_line_breaks opts + then WrapNone + else writerWrapText opts } -- | Convert Pandoc to Markua. writeMarkua :: PandocMonad m => WriterOptions -> Pandoc -> m Text writeMarkua opts document = evalMD (pandocToMarkdown opts' document) def{ envVariant = Markua } def where - opts' = opts{ writerExtensions = + opts' = opts{ writerExtensions = enableExtension Ext_hard_line_breaks $ enableExtension Ext_pipe_tables $ -- required for fancy list enumerators @@ -99,7 +103,11 @@ writeMarkua opts document = enableExtension Ext_definition_lists $ enableExtension Ext_smart $ enableExtension Ext_footnotes - mempty } + mempty , + writerWrapText = + if isEnabled Ext_hard_line_breaks opts + then WrapNone + else writerWrapText opts } pandocTitleBlock :: Doc Text -> [Doc Text] -> Doc Text -> Doc Text |