aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Writers/HTML.hs5
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index a0366006d..98e3045d3 100644
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -105,8 +105,11 @@ pandocToHtml opts (Pandoc (Meta title' authors' date') blocks) = do
toc <- if writerTableOfContents opts
then tableOfContents opts sects
else return Nothing
- let cutUp (HorizontalRule : xs) = RawHtml "</div>\n<div class=\"slide\">\n" :
+ let cutUp (HorizontalRule : Header 1 ys : xs) = cutUp (Header 1 ys : xs)
+ cutUp (HorizontalRule : xs) = RawHtml "</div>\n<div class=\"slide\">\n" :
cutUp xs
+ cutUp (Header 1 ys : xs) = RawHtml ("</div>\n<div class=\"slide title\">\n") :
+ Header 1 ys : cutUp xs
cutUp (x:xs) = x : cutUp xs
cutUp [] = []
blocks' <- liftM toHtmlFromList $