diff options
| author | John MacFarlane <[email protected]> | 2022-09-05 09:51:59 -0700 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2022-09-05 09:51:59 -0700 |
| commit | 86a3467ece8f6b9355f267d7cb1816e3465a56f8 (patch) | |
| tree | 4e39e53603ffe22571338110c84d71e845d0cd50 /src | |
| parent | b9a7de32f6bd729266861ca0942cd2471a9ad2c4 (diff) | |
HTML writer: only treat `. . .` as a slide pause in slides...
...and not in regular HTML output.
Closes #8281.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index 010815d00..f74ce75d0 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -809,9 +809,11 @@ blockToHtmlInner opts (Div (ident, "section":dclasses, dkvs) let inDiv' zs = RawBlock (Format "html") ("<div class=\"" <> fragmentClass <> "\">") : (zs ++ [RawBlock (Format "html") "</div>"]) - let breakOnPauses zs = case splitBy isPause zs of + let breakOnPauses zs + | slide = case splitBy isPause zs of [] -> [] y:ys -> y ++ concatMap inDiv' ys + | otherwise = zs let (titleBlocks, innerSecs) = if titleSlide -- title slides have no content of their own |