From 734b0bc2fb19134cdfa6f4efa6f8f8a03800b336 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 27 May 2015 11:04:38 -0700
Subject: Revealjs:  allow 'center' to be set to false.

---
 src/Text/Pandoc/Writers/HTML.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src')

diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index 022a0e17f..8de34ace8 100644
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -194,6 +194,9 @@ pandocToHtml opts (Pandoc meta blocks) = do
                   defField "revealjs-url" ("reveal.js" :: String) $
                   defField "s5-url" ("s5/default" :: String) $
                   defField "html5" (writerHtml5 opts) $
+                  defField "center" (case lookupMeta "center" meta of
+                                          Just (MetaBool False) -> False
+                                          _                     -> True) $
                   metadata
   return (thebody, context)
 
-- 
cgit v1.2.3