diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2010-01-01 01:32:48 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2010-01-01 01:32:48 +0000 |
| commit | 8a308ac1b2e390fa3e9809999e993eb62be5a2c6 (patch) | |
| tree | ddd092b7566ed2ff6cddf5e6c310166e1907d315 /src/Text/Pandoc | |
| parent | 2ae3b9239ee4f0f0e95f59c9df64b6616905ed60 (diff) | |
| download | pandoc-8a308ac1b2e390fa3e9809999e993eb62be5a2c6.tar.gz | |
Modified S5 writer to look for s5 files in s5 directory.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1764 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Writers/S5.hs | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/Text/Pandoc/Writers/S5.hs b/src/Text/Pandoc/Writers/S5.hs index e3e9e0024..98c79cb08 100644 --- a/src/Text/Pandoc/Writers/S5.hs +++ b/src/Text/Pandoc/Writers/S5.hs @@ -55,19 +55,19 @@ s5Meta = "<!-- configuration parameters -->\n<meta name=\"defaultView\" content= s5Javascript :: IO String s5Javascript = do - jsCom <- readDataFile $ "data" </> "ui" </> "default" </> "slides.js.comment" - jsPacked <- readDataFile $ "data" </> "ui" </> "default" </> "slides.js.packed" + jsCom <- readDataFile $ "s5" </> "default" </> "slides.js.comment" + jsPacked <- readDataFile $ "s5" </> "default" </> "slides.js.packed" return $ "<script type=\"text/javascript\">\n" ++ jsCom ++ jsPacked ++ "</script>\n" s5CSS :: IO String s5CSS = do - s5CoreCSS <- readDataFile $ "data" </> "ui" </> "default" </> "s5-core.css" - s5FramingCSS <- readDataFile $ "data" </> "ui" </> "default" </> "framing.css" - s5PrettyCSS <- readDataFile $ "data" </> "ui" </> "default" </> "pretty.css" - s5OperaCSS <- readDataFile $ "data" </> "ui" </> "default" </> "opera.css" - s5OutlineCSS <- readDataFile $ "data" </> "ui" </> "default" </> "outline.css" - s5PrintCSS <- readDataFile $ "data" </> "ui" </> "default" </> "print.css" + s5CoreCSS <- readDataFile $ "s5" </> "default" </> "s5-core.css" + s5FramingCSS <- readDataFile $ "s5" </> "default" </> "framing.css" + s5PrettyCSS <- readDataFile $ "s5" </> "default" </> "pretty.css" + s5OperaCSS <- readDataFile $ "s5" </> "default" </> "opera.css" + s5OutlineCSS <- readDataFile $ "s5" </> "default" </> "outline.css" + s5PrintCSS <- readDataFile $ "s5" </> "default" </> "print.css" return $ "<style type=\"text/css\" media=\"projection\" id=\"slideProj\">\n" ++ s5CoreCSS ++ "\n" ++ s5FramingCSS ++ "\n" ++ s5PrettyCSS ++ "\n</style>\n<style type=\"text/css\" media=\"projection\" id=\"operaFix\">\n" ++ s5OperaCSS ++ "\n</style>\n<style type=\"text/css\" media=\"screen\" id=\"outlineStyle\">\n" ++ s5OutlineCSS ++ "\n</style>\n<style type=\"text/css\" media=\"print\" id=\"slidePrint\">\n" ++ s5PrintCSS ++ "\n</style>\n" s5Links :: String |