diff options
author | John MacFarlane <fiddlosopher@gmail.com> | 2012-07-23 22:53:35 -0700 |
---|---|---|
committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-07-23 22:53:35 -0700 |
commit | 1bd0c479685fd009ba3c808e6fea3fac24f26428 (patch) | |
tree | 58550ee51e0ea74e2fdb301263861cf7ac0bae93 /src/Text | |
parent | d2cc56a46a5a3c657429e8df5b93c82f3f9ed9fb (diff) |
Set writerSlideVariant in Text.Pandoc rather than pandoc.hs.
Diffstat (limited to 'src/Text')
-rw-r--r-- | src/Text/Pandoc.hs | 13 |
1 files changed, 9 insertions, 4 deletions
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) |