aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2013-05-22 10:21:22 -0700
committerJohn MacFarlane <fiddlosopher@gmail.com>2013-05-22 10:21:22 -0700
commit210855e03e9389f8818870e20ca9a4f63d38ca8b (patch)
tree05c860958c74df073691403441884d3b5c7b69fd /src/Text
parentca09c1ac3b66d5f019dfb7d52496f75f8e45d0f3 (diff)
downloadpandoc-210855e03e9389f8818870e20ca9a4f63d38ca8b.tar.gz
EPUB writer: Download webtex images and include as data URLs.
This allows you to use `--webtex` in creating EPUBs.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Writers/EPUB.hs57
1 files changed, 32 insertions, 25 deletions
diff --git a/src/Text/Pandoc/Writers/EPUB.hs b/src/Text/Pandoc/Writers/EPUB.hs
index f7385894b..fc8d041f4 100644
--- a/src/Text/Pandoc/Writers/EPUB.hs
+++ b/src/Text/Pandoc/Writers/EPUB.hs
@@ -30,13 +30,14 @@ Conversion of 'Pandoc' documents to EPUB.
module Text.Pandoc.Writers.EPUB ( writeEPUB ) where
import Data.IORef
import Data.Maybe ( fromMaybe, isNothing )
-import Data.List ( isInfixOf, intercalate )
+import Data.List ( isInfixOf, intercalate, isPrefixOf )
import System.Environment ( getEnv )
import Text.Printf (printf)
import System.FilePath ( (</>), takeBaseName, takeExtension, takeFileName )
import qualified Data.ByteString.Lazy as B
import qualified Data.ByteString.Lazy.Char8 as B8
import Text.Pandoc.UTF8 ( fromStringLazy, toString )
+import Text.Pandoc.SelfContained ( makeSelfContained )
import Codec.Archive.Zip
import Data.Time.Clock.POSIX
import Data.Time
@@ -115,7 +116,7 @@ writeEPUB opts doc@(Pandoc meta _) = do
-- handle pictures
picsRef <- newIORef []
Pandoc _ blocks <- bottomUpM
- (transformInlines (writerHTMLMathMethod opts') sourceDir picsRef) doc
+ (transformInline (writerHTMLMathMethod opts') sourceDir picsRef) doc
pics <- readIORef picsRef
let readPicEntry (oldsrc, newsrc) = do
(img,_) <- fetchItem sourceDir oldsrc
@@ -404,34 +405,40 @@ metadataElement version metadataXML uuid lang title authors date currentTime mbC
showDateTimeISO8601 :: UTCTime -> String
showDateTimeISO8601 = formatTime defaultTimeLocale "%FT%TZ"
-transformInlines :: HTMLMathMethod
+transformInline :: HTMLMathMethod
-> FilePath
-> IORef [(FilePath, FilePath)] -- ^ (oldpath, newpath) images
- -> [Inline]
- -> IO [Inline]
-transformInlines _ _ _ (Image lab (src,_) : xs)
- | isNothing (imageTypeOf src) = return $ Emph lab : xs
-transformInlines _ sourceDir picsRef (Image lab (src,tit) : xs) = do
- let src' = unEscapeString src
- pics <- readIORef picsRef
- let oldsrc = sourceDir </> src'
- let ext = takeExtension src'
- newsrc <- case lookup oldsrc pics of
- Just n -> return n
- Nothing -> do
- let new = "images/img" ++ show (length pics) ++ ext
- modifyIORef picsRef ( (oldsrc, new): )
- return new
- return $ Image lab (newsrc, tit) : xs
-transformInlines (MathML _) _ _ (x@(Math _ _) : xs) = do
+ -> Inline
+ -> IO Inline
+transformInline _ sourceDir picsRef (Image lab (src,tit))
+ | "http://chart.apis.google.com" `isPrefixOf` src = do
+ raw <- makeSelfContained Nothing $
+ writeHtmlInline def (Image lab (src,tit))
+ return (RawInline "html" raw)
+ | isNothing (imageTypeOf src) = return $ Emph lab
+ | otherwise = do
+ let src' = unEscapeString src
+ pics <- readIORef picsRef
+ let oldsrc = sourceDir </> src'
+ let ext = takeExtension src'
+ newsrc <- case lookup oldsrc pics of
+ Just n -> return n
+ Nothing -> do
+ let new = "images/img" ++ show (length pics) ++ ext
+ modifyIORef picsRef ( (oldsrc, new): )
+ return new
+ return $ Image lab (newsrc, tit)
+transformInline (MathML _) _ _ (x@(Math _ _)) = do
-- note: ideally we'd use a switch statement to provide a fallback
-- but switch does not seem to be widely implemented yet, so we just
-- provide the mathml
- let writeHtmlInline opts z = trimr $
- writeHtmlString opts $ Pandoc (Meta [] [] []) [Plain [z]]
- result = writeHtmlInline def{writerHTMLMathMethod = MathML Nothing } x
- return $ RawInline "html" result : xs
-transformInlines _ _ _ xs = return xs
+ let result = writeHtmlInline def{writerHTMLMathMethod = MathML Nothing } x
+ return $ RawInline "html" result
+transformInline _ _ _ x = return x
+
+writeHtmlInline :: WriterOptions -> Inline -> String
+writeHtmlInline opts z = trimr $
+ writeHtmlString opts $ Pandoc (Meta [] [] []) [Plain [z]]
(!) :: Node t => (t -> Element) -> [(String, String)] -> t -> Element
(!) f attrs n = add_attrs (map (\(k,v) -> Attr (unqual k) v) attrs) (f n)