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