diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-08-01 23:29:55 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-08-01 23:29:55 +0000 |
| commit | e371db97d7de5188b89b9f77749b47c20ef958de (patch) | |
| tree | 630b3c96d5bb766a154ff474de52118b57847b54 /Text/Pandoc/Writers/S5.hs | |
| parent | 5c1c786d6590b105dc2802a16eb9c599ec06912c (diff) | |
| download | pandoc-e371db97d7de5188b89b9f77749b47c20ef958de.tar.gz | |
Fixes to make haddock work with template haskell:
+ Added CPP, TemplateHaskell, FlexibleInstances to cabal file "Extensions" field
+ Added #ifndef __HADDOCK__ cpp declarations in the files using template haskell.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1366 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'Text/Pandoc/Writers/S5.hs')
| -rw-r--r-- | Text/Pandoc/Writers/S5.hs | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/Text/Pandoc/Writers/S5.hs b/Text/Pandoc/Writers/S5.hs index e4cc9b08b..a00182ef0 100644 --- a/Text/Pandoc/Writers/S5.hs +++ b/Text/Pandoc/Writers/S5.hs @@ -1,4 +1,4 @@ -{-# LANGUAGE TemplateHaskell #-} +{-# LANGUAGE CPP, TemplateHaskell #-} {- Copyright (C) 2006-7 John MacFarlane <jgm@berkeley.edu> @@ -50,27 +50,41 @@ s5Meta :: String s5Meta = "<!-- configuration parameters -->\n<meta name=\"defaultView\" content=\"slideshow\" />\n<meta name=\"controlVis\" content=\"hidden\" />\n" s5Javascript :: String +#ifndef __HADDOCK__ s5Javascript = "<script type=\"text/javascript\">\n" ++ $(contentsOf $ "data" </> "ui" </> "default" </> "slides.js.comment") ++ $(contentsOf $ "data" </> "ui" </> "default" </> "slides.js.packed") ++ "</script>\n" +#endif s5CoreCSS :: String +#ifndef __HADDOCK__ s5CoreCSS = $(contentsOf $ "data" </> "ui" </> "default" </> "s5-core.css") +#endif s5FramingCSS :: String +#ifndef __HADDOCK__ s5FramingCSS = $(contentsOf $ "data" </> "ui" </> "default" </> "framing.css") +#endif s5PrettyCSS :: String +#ifndef __HADDOCK__ s5PrettyCSS = $(contentsOf $ "data" </> "ui" </> "default" </> "pretty.css") +#endif s5OperaCSS :: String +#ifndef __HADDOCK__ s5OperaCSS = $(contentsOf $ "data" </> "ui" </> "default" </> "opera.css") +#endif s5OutlineCSS :: String +#ifndef __HADDOCK__ s5OutlineCSS = $(contentsOf $ "data" </> "ui" </> "default" </> "outline.css") +#endif s5PrintCSS :: String +#ifndef __HADDOCK__ s5PrintCSS = $(contentsOf $ "data" </> "ui" </> "default" </> "print.css") +#endif s5CSS :: String s5CSS = "<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" |