diff options
| -rw-r--r-- | Text/Pandoc/ASCIIMathML.hs | 4 | ||||
| -rw-r--r-- | Text/Pandoc/DefaultHeaders.hs | 12 | ||||
| -rw-r--r-- | Text/Pandoc/Writers/S5.hs | 16 | ||||
| -rw-r--r-- | pandoc.cabal | 1 |
4 files changed, 30 insertions, 3 deletions
diff --git a/Text/Pandoc/ASCIIMathML.hs b/Text/Pandoc/ASCIIMathML.hs index 72a1f0e19..829779e41 100644 --- a/Text/Pandoc/ASCIIMathML.hs +++ b/Text/Pandoc/ASCIIMathML.hs @@ -1,4 +1,4 @@ -{-# LANGUAGE TemplateHaskell #-} +{-# LANGUAGE CPP, TemplateHaskell #-} -- | Definitions for use of ASCIIMathML in HTML. -- (See <http://www1.chapman.edu/~jipsen/mathml/asciimath.html>.) module Text.Pandoc.ASCIIMathML ( asciiMathMLScript ) where @@ -7,6 +7,8 @@ import System.FilePath ( (</>) ) -- | String containing ASCIIMathML javascript. asciiMathMLScript :: String +#ifndef __HADDOCK__ asciiMathMLScript = "<script type=\"text/javascript\">\n" ++ $(contentsOf $ "data" </> "ASCIIMathML.js.comment") ++ $(contentsOf $ "data" </> "ASCIIMathML.js.packed") ++ "</script>\n" +#endif diff --git a/Text/Pandoc/DefaultHeaders.hs b/Text/Pandoc/DefaultHeaders.hs index b918002d8..596313b1b 100644 --- a/Text/Pandoc/DefaultHeaders.hs +++ b/Text/Pandoc/DefaultHeaders.hs @@ -1,4 +1,4 @@ -{-# LANGUAGE TemplateHaskell #-} +{-# LANGUAGE CPP, TemplateHaskell #-} {- Copyright (C) 2006-7 John MacFarlane <jgm@berkeley.edu> @@ -41,19 +41,29 @@ import System.FilePath ( (</>) ) import Text.Pandoc.Shared ( contentsOf ) defaultLaTeXHeader :: String +#ifndef __HADDOCK__ defaultLaTeXHeader = $(contentsOf $ "data" </> "headers" </> "LaTeX.header") +#endif defaultConTeXtHeader :: String +#ifndef __HADDOCK__ defaultConTeXtHeader = $(contentsOf $ "data" </> "headers" </> "ConTeXt.header") +#endif defaultDocbookHeader :: String +#ifndef __HADDOCK__ defaultDocbookHeader = $(contentsOf $ "data" </> "headers" </> "Docbook.header") +#endif defaultOpenDocumentHeader :: String +#ifndef __HADDOCK__ defaultOpenDocumentHeader = $(contentsOf $ "data" </> "headers" </> "OpenDocument.header") +#endif defaultS5Header :: String defaultS5Header = s5Meta ++ s5CSS ++ s5Javascript defaultRTFHeader :: String +#ifndef __HADDOCK__ defaultRTFHeader = $(contentsOf $ "data" </> "headers" </> "RTF.header") +#endif 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" diff --git a/pandoc.cabal b/pandoc.cabal index 8b2a12668..154f094ad 100644 --- a/pandoc.cabal +++ b/pandoc.cabal @@ -109,6 +109,7 @@ Library Text.XML.Light.Input, Text.XML.Light.Proc, Text.XML.Light.Cursor + Extensions: CPP, TemplateHaskell, FlexibleInstances Ghc-Options: -O2 -Wall -threaded Ghc-Prof-Options: -auto-all |