From 1bd0c479685fd009ba3c808e6fea3fac24f26428 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Mon, 23 Jul 2012 22:53:35 -0700 Subject: Set writerSlideVariant in Text.Pandoc rather than pandoc.hs. --- src/Text/Pandoc.hs | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) (limited to 'src/Text') diff --git a/src/Text/Pandoc.hs b/src/Text/Pandoc.hs index 0a2c613b1..b27651049 100644 --- a/src/Text/Pandoc.hs +++ b/src/Text/Pandoc.hs @@ -191,10 +191,15 @@ writers = [("native" , writeNative) ,("html5+lhs" , \o -> writeHtmlString o{ writerLiterateHaskell = True, writerHtml5 = True }) - ,("s5" , writeHtmlString) - ,("slidy" , writeHtmlString) - ,("slideous" , writeHtmlString) - ,("dzslides" , writeHtmlString) + ,("s5" , \o -> + writeHtmlString o{ writerSlideVariant = S5Slides }) + ,("slidy" , \o -> + writeHtmlString o{ writerSlideVariant = SlidySlides }) + ,("slideous" , \o -> + writeHtmlString o{ writerSlideVariant = SlideousSlides }) + ,("dzslides" , \o -> + writeHtmlString o{ writerSlideVariant = DZSlides + , writerHtml5 = True }) ,("docbook" , writeDocbook) ,("opendocument" , writeOpenDocument) ,("latex" , writeLaTeX) -- cgit v1.2.3