d0bfcbb · typeable/pandoc

git.iko.soy/typeable/pandoc

EPUB writer: use stringify instead of plain writer for metadata.

This means that underscores won't be used for emphasis, or CAPS for bold. The metadata fields will just have unadorned text. Closes #3066.

commitd0bfcbb8010f6e2b1d132e6b303ccb5024f05323 authorJohn MacFarlane <jgm@berkeley.edu> dateSun 2 Oct 2016, 22:01 (10 years ago) parent46d8b42

1 file changed+4−6

unifiedsplit

src/Text/Pandoc/Writers/EPUB.hs+4−6

@@ -57,8 +57,6 @@ import Text.Pandoc.Options ( WriterOptions(..)

5757 , ObfuscationMethod(NoObfuscation) )

5858import Text.Pandoc.Definition

5959import Text.Pandoc.Walk (walk, walkM, query)

60−import Data.Default

61−import Text.Pandoc.Writers.Markdown (writePlain)

6260import Control.Monad.State (modify, get, State, put, evalState)

6361import Control.Monad (mplus, liftM, when)

6462import Text.XML.Light ( unode, Element(..), unqual, Attr(..), add_attrs

@@ -228,10 +226,10 @@ addMetadataFromXML _ md = md

228226

229227metaValueToString :: MetaValue -> String

230228metaValueToString (MetaString s) = s

231−metaValueToString (MetaInlines ils) = writePlain def

232− (Pandoc nullMeta [Plain ils])

233−metaValueToString (MetaBlocks bs) = writePlain def (Pandoc nullMeta bs)

234−metaValueToString (MetaBool b) = show b

229+metaValueToString (MetaInlines ils) = stringify ils

230+metaValueToString (MetaBlocks bs) = stringify bs

231+metaValueToString (MetaBool True) = "true"

232+metaValueToString (MetaBool False) = "false"

235233metaValueToString _ = ""

236234

237235getList :: String -> Meta -> (MetaValue -> a) -> [a]