diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2013-10-20 09:56:50 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2013-10-20 09:56:50 -0700 |
| commit | 1ce875a010e1471e06338a20c82781036d476776 (patch) | |
| tree | 20a3a1e4dc56098cbccf2266bf821cd915390922 /src | |
| parent | 96ceef6bd70d1e85e7bc5a38dceb735d8b3aa76b (diff) | |
| download | pandoc-1ce875a010e1471e06338a20c82781036d476776.tar.gz | |
Fixed '. . .' (pause) on HTML slide formats. Closes #1029.
The old version caused a pause to be inserted before the first
material on a slide. This has been fixed.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index 22f5b8074..8a71c3a2e 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -286,9 +286,8 @@ elementToHtml slideLevel opts (Sec level num (id',classes,keyvals) title' elemen then filter isSec elements else if slide then case splitBy isPause elements of - [] -> [] - [x] -> x - xs -> concatMap inDiv xs + [] -> [] + (x:xs) -> x ++ concatMap inDiv xs else elements let inNl x = mconcat $ nl opts : intersperse (nl opts) x ++ [nl opts] let classes' = ["titleslide" | titleSlide] ++ ["slide" | slide] ++ |