diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2015-05-27 11:04:38 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2015-05-27 11:04:38 -0700 |
| commit | 734b0bc2fb19134cdfa6f4efa6f8f8a03800b336 (patch) | |
| tree | 79c02a0b0609a3499deb7cc4529455e54a9f8dd2 /src/Text/Pandoc/Writers | |
| parent | 9b86eec612e1e93e712e4a7b0ca147ed741507cc (diff) | |
| download | pandoc-734b0bc2fb19134cdfa6f4efa6f8f8a03800b336.tar.gz | |
Revealjs: allow 'center' to be set to false.
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 3 |
1 files changed, 3 insertions, 0 deletions
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) |