From 7f5e2af1fb9f7eff11c50996bc6b6245ec9550ff Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sun, 4 Nov 2012 18:58:37 -0800 Subject: EPUB writer: Improved handling of CSS. * Code highlighting now works by default. * Quote styles work as in pandoc's HTML writer. --- src/Text/Pandoc/Writers/EPUB.hs | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/Text/Pandoc/Writers/EPUB.hs b/src/Text/Pandoc/Writers/EPUB.hs index 463e2c587..4effc7b2b 100644 --- a/src/Text/Pandoc/Writers/EPUB.hs +++ b/src/Text/Pandoc/Writers/EPUB.hs @@ -75,7 +75,9 @@ writeEPUB version opts doc@(Pandoc meta _) = do let epub3 = version == EPUB3 epochtime <- floor `fmap` getPOSIXTime let mkEntry path content = toEntry path epochtime content - let vars = ("epub3", if epub3 then "true" else "false"):writerVariables opts + let vars = ("epub3", if epub3 then "true" else "false") + : ("css", "stylesheet.css") + : writerVariables opts let opts' = opts{ writerEmailObfuscation = NoObfuscation , writerStandalone = True , writerSectionDivs = True @@ -400,7 +402,9 @@ transformInlines (MathML _) _ _ (x@(Math _ _) : xs) = do let writeHtmlInline opts z = trimr $ writeHtmlString opts $ Pandoc (Meta [] [] []) [Plain [z]] mathml = writeHtmlInline def{writerHTMLMathMethod = MathML Nothing } x - fallback = writeHtmlInline def{writerHTMLMathMethod = PlainMath } x + -- we use mathjax to get raw latex, since readers tend to + -- fall back to using mathjax... + fallback = writeHtmlInline def{writerHTMLMathMethod = MathJax "" } x inSwitch = "" ++ mathml ++ "" ++ fallback ++ -- cgit v1.2.3