diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/S5.hs | 1 | ||||
| -rw-r--r-- | src/pandoc.hs | 5 |
2 files changed, 5 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/S5.hs b/src/Text/Pandoc/Writers/S5.hs index 3723626c2..d2dab07a3 100644 --- a/src/Text/Pandoc/Writers/S5.hs +++ b/src/Text/Pandoc/Writers/S5.hs @@ -31,6 +31,7 @@ Definitions for creation of S5 powerpoint-like HTML. module Text.Pandoc.Writers.S5 ( -- * Header includes s5HeaderIncludes, + s5Meta, s5Links, -- * Functions writeS5, diff --git a/src/pandoc.hs b/src/pandoc.hs index cb1756ffb..b7ff42803 100644 --- a/src/pandoc.hs +++ b/src/pandoc.hs @@ -30,7 +30,7 @@ writers. -} module Main where import Text.Pandoc -import Text.Pandoc.Writers.S5 (s5HeaderIncludes) +import Text.Pandoc.Writers.S5 (s5HeaderIncludes, s5Links, s5Meta) import Text.Pandoc.Shared ( tabFilter, ObfuscationMethod (..), readDataFile, headerShift ) #ifdef _HIGHLIGHTING @@ -747,6 +747,9 @@ main = do ("s5", True, True) -> do inc <- s5HeaderIncludes datadir return $ ("header-includes", inc) : variables + ("s5", True, False) -> + return $ ("header-includes", s5Meta ++ s5Links) : + variables ("slidy", True, True) -> do slidyJs <- readDataFile datadir $ "slidy" </> "slidy.min.js" |