From 734b0bc2fb19134cdfa6f4efa6f8f8a03800b336 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Wed, 27 May 2015 11:04:38 -0700 Subject: Revealjs: allow 'center' to be set to false. --- data/templates | 2 +- src/Text/Pandoc/Writers/HTML.hs | 3 +++ 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/data/templates b/data/templates index ab55684bc..3370fd9f1 160000 --- a/data/templates +++ b/data/templates @@ -1 +1 @@ -Subproject commit ab55684bc15ef367d92fd916797d154199c57c85 +Subproject commit 3370fd9f11a2676c2052cdf50d7f0edafa751461 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