Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Get default stylesheet in EPUB writer, rather than pandoc.hs.

Browse source
This commit is contained in:
John MacFarlane 2010-07-08 17:51:13 -07:00
parent bf43da01c9
commit 8af979311a
2 changed files with 12 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/Text/Pandoc/Writers/EPUB.hs
View file

@ -47,11 +47,14 @@ import Text.Pandoc.Writers.Markdown ( writePlain )
import Data.Char ( toLower )
-- | Produce an EPUB file from a Pandoc document.
writeEPUB :: String -- ^ EPUB stylesheet
writeEPUB :: Maybe String -- ^ EPUB stylesheet specified at command line
-> WriterOptions -- ^ Writer options
-> Pandoc -- ^ Document to convert
-> IO B.ByteString
writeEPUB stylesheet opts doc = do
writeEPUB mbStylesheet opts doc = do
stylesheet <- case mbStylesheet of
Just s -> return s
Nothing -> readDataFile (writerUserDataDir opts) "epub.css"
(TOD epochtime _) <- getClockTime
let opts' = opts{ writerEmailObfuscation = NoObfuscation
, writerStandalone = True

17
src/pandoc.hs
View file

@ -695,16 +695,13 @@ main = do
Just r -> return r
Nothing -> error ("Unknown reader: " ++ readerName')
writer <- case (lookup writerName' writers) of
Just _ | writerName' == "epub" -> do
epubstyle <- case epubStylesheet of
Just s -> return s
Nothing -> readDataFile datadir "epub.css"
return (writeEPUB epubstyle)
Just _ | writerName' == "odt" -> return (writeODT referenceODT)
Just r -> return $ \o d ->
return $ fromString (r o d)
Nothing -> error ("Unknown writer: " ++ writerName')
let writer = case lookup writerName' writers of
Just _ | writerName' == "epub" -> writeEPUB epubStylesheet
Just _ | writerName' == "odt" -> writeODT referenceODT
Just r -> \o ->
return . fromString . r o
Nothing -> error $ "Unknown writer: " ++
writerName'
templ <- getDefaultTemplate datadir writerName'
let defaultTemplate = case templ of