Slidy writer: Avoid spurious blank page.

2010-07-22 17:28:15 -07:00 · 2010-07-22 17:28:15 -07:00 · 5fd1389263
commit 5fd1389263
parent a3051b8acb
1 changed files with 5 additions and 1 deletions
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@ -112,10 +112,14 @@ pandocToHtml opts (Pandoc (Meta title' authors' date') blocks) = do
                                    Header 1 ys : cutUp xs
      cutUp (x:xs)                = x : cutUp xs
      cutUp []                    = [] 
+  let preamble = case blocks of
+                   (HorizontalRule : _) -> []
+                   (Header 1 _ : _)     -> []
+                   _                    -> [RawHtml "<div class=\"slide\">\n"]
  blocks' <- liftM toHtmlFromList $
              case writerSlideVariant opts of
                   SlidySlides  -> mapM (blockToHtml opts) $
-                                      RawHtml "<div class=\"slide\">\n" :
+                                      preamble ++
                                      cutUp blocks ++
                                      [RawHtml "</div>"]
                   _            -> mapM (elementToHtml opts) sects