Set writerTableOfContents for s5 in Text.Pandoc, not pandoc.hs.

src/Text/Pandoc.hs

@@ -192,7 +192,8 @@ writers = [("native"       , writeNative)
                              writeHtmlString o{ writerLiterateHaskell = True,
                                                 writerHtml5 = True })
           ,("s5"           , \o ->
-                             writeHtmlString o{ writerSlideVariant = S5Slides })
+                             writeHtmlString o{ writerSlideVariant = S5Slides
+                                              , writerTableOfContents = False })
           ,("slidy"        , \o ->
                              writeHtmlString o{ writerSlideVariant = SlidySlides })
           ,("slideous"     , \o ->

src/pandoc.hs

@@ -952,8 +952,7 @@ main = do
                             writerVariables        = variables'',
                             writerEPUBMetadata     = epubMetadata,
                             writerTabStop          = tabStop,
-                            writerTableOfContents  = toc &&
-                                                     writerName' /= "s5",
+                            writerTableOfContents  = toc,
                             writerHTMLMathMethod   = mathMethod,
                             writerIncremental      = incremental,
                             writerCiteMethod       = citeMethod,