@@ -193,9 +193,6 @@ pandocToHtml opts (Pandoc meta blocks) = do
193 defField "revealjs-url" ("reveal.js" :: String) $
193 defField "revealjs-url" ("reveal.js" :: String) $
194 defField "s5-url" ("s5/default" :: String) $
194 defField "s5-url" ("s5/default" :: String) $
195 defField "html5" (writerHtml5 opts) $
195 defField "html5" (writerHtml5 opts) $
196− defField "center" (case lookupMeta "center" meta of
197− Just (MetaBool False) -> False
200 return (thebody, context)
197 return (thebody, context)