fba4f1f · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

EPUB: Added customizable templates for epub pages.

fba4f1fJohn MacFarlane15 years ago

pandoc.cabal+3−1

compare with master

unifiedsplit

@@ -45,7 +45,9 @@ Data-Files:

45 templates/default.mediawiki, templates/default.rtf,

46 templates/default.s5, templates/default.slidy,

47 templates/default.dzslides, templates/default.asciidoc,

48− templates/default.textile, templates/default.org

48+ templates/default.textile, templates/default.org,

49+ templates/epub-titlepage.html, templates/epub-page.html,

50+ templates/epub-coverimage.html,

49 -- data for ODT writer

51 -- data for ODT writer

50 reference.odt,

52 reference.odt,

51 -- stylesheet for EPUB writer

53 -- stylesheet for EPUB writer

src/Text/Pandoc/Writers/EPUB.hs+13−46

@@ -32,7 +32,7 @@ import Data.IORef

32import Data.Maybe ( fromMaybe, isNothing )

33import Data.List ( findIndices, isPrefixOf )

34import System.Environment ( getEnv )

35−import System.FilePath ( (</>), takeBaseName, takeExtension )

35+import System.FilePath ( (</>), (<.>), takeBaseName, takeExtension )

36import qualified Data.ByteString.Lazy as B

37import Data.ByteString.Lazy.UTF8 ( fromString )

38import Codec.Archive.Zip

@@ -63,6 +63,15 @@ writeEPUB mbStylesheet opts doc@(Pandoc meta _) = do

63 let vars = writerVariables opts'

64 let mbCoverImage = lookup "epub-cover-image" vars

66+ titlePageTemplate <- readDataFile (writerUserDataDir opts)

67+ $ "templates" </> "epub-titlepage" <.> "html"

68+

69+ coverImageTemplate <- readDataFile (writerUserDataDir opts)

70+ $ "templates" </> "epub-coverimage" <.> "html"

71+

72+ pageTemplate <- readDataFile (writerUserDataDir opts)

73+ $ "templates" </> "epub-page" <.> "html"

74+

66 -- cover page

75 -- cover page

67 (cpgEntry, cpicEntry) <-

76 (cpgEntry, cpicEntry) <-

68 case mbCoverImage of

77 case mbCoverImage of

@@ -70,9 +79,8 @@ writeEPUB mbStylesheet opts doc@(Pandoc meta _) = do

70 Just img -> do

79 Just img -> do

71 let coverImage = "cover-image" ++ takeExtension img

80 let coverImage = "cover-image" ++ takeExtension img

72 let cpContent = fromString $ writeHtmlString

81 let cpContent = fromString $ writeHtmlString

73− opts'{writerTemplate = pageTemplate

82+ opts'{writerTemplate = coverImageTemplate,

74− ,writerVariables =

75− ("coverimage",coverImage):vars}

83+ writerVariables = ("coverimage",coverImage):vars}

76 (Pandoc meta [])

84 (Pandoc meta [])

77 imgContent <- B.readFile img

85 imgContent <- B.readFile img

78 return ( [mkEntry "cover.xhtml" cpContent]

86 return ( [mkEntry "cover.xhtml" cpContent]

@@ -80,8 +88,7 @@ writeEPUB mbStylesheet opts doc@(Pandoc meta _) = do

81 -- title page

89 -- title page

82 let tpContent = fromString $ writeHtmlString

90 let tpContent = fromString $ writeHtmlString

83− opts'{writerTemplate = pageTemplate

91+ opts'{writerTemplate = titlePageTemplate}

84− ,writerVariables = ("titlepage","yes"):vars}

85 (Pandoc meta [])

92 (Pandoc meta [])

86 let tpEntry = mkEntry "title_page.xhtml" tpContent

93 let tpEntry = mkEntry "title_page.xhtml" tpContent

@@ -298,43 +305,3 @@ imageTypeOf x = case drop 1 (map toLower (takeExtension x)) of

298 "svg" -> Just "image/svg+xml"

305 "svg" -> Just "image/svg+xml"

299 _ -> Nothing

306 _ -> Nothing

300

307

301−pageTemplate :: String

302−pageTemplate = unlines

303− [ "<?xml version=\"1.0\" encoding=\"UTF-8\"?>"

304− , "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.1//EN\" \"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd\">"

305− , "<html xmlns=\"http://www.w3.org/1999/xhtml\">"

306− , "<head>"

307− , "<title>$title$</title>"

308− , "$if(coverimage)$"

309− , "<style type=\"text/css\">img{ max-width: 100%; }</style>"

310− , "$endif$"

311− , "<link href=\"stylesheet.css\" type=\"text/css\" rel=\"stylesheet\" />"

312− , "</head>"

313− , "<body>"

314− , "$if(coverimage)$"

315− , "<div id=\"cover-image\">"

316− , "<img src=\"$coverimage$\" alt=\"$title$\" />"

317− , "</div>"

318− , "$else$"

319− , "$if(titlepage)$"

320− , "<h1 class=\"title\">$title$</h1>"

321− , "$for(author)$"

322− , "<h2 class=\"author\">$author$</h2>"

323− , "$endfor$"

324− , "$if(date)$"

325− , "<h3 class=\"date\">$date$</h3>"

326− , "$endif$"

327− , "$else$"

328− , "<h1>$title$</h1>"

329− , "$if(toc)$"

330− , "<div id=\"$idprefix$TOC\">"

331− , "$toc$"

332− , "</div>"

333− , "$endif$"

334− , "$endif$"

335− , "$body$"

336− , "$endif$"

337− , "</body>"

338− , "</html>"

339− ]

340−

templates+1−1

Submodule changed.