aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2010-07-22 22:23:30 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2010-07-22 22:23:43 -0700
commitda52412455707656e7738d110c32be2decee2dcd (patch)
tree13c3515ba34eff5b09ebcd269d436ee2efef7a6c /src
parentc5ed016616e1e6fef1801c98ef61a5eae6a3af55 (diff)
downloadpandoc-da52412455707656e7738d110c32be2decee2dcd.tar.gz
Extended --offline to s5.
S5 default is now to include links, rather than a full copy of scripts and stylesheets.
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Writers/S5.hs1
-rw-r--r--src/pandoc.hs5
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"