git.iko.soy/typeable/pandoc
on master help sign in
EPUB Reader: Can now parse multiple meta data fields
e02360dMatthew Pickering
src/Text/Pandoc/Readers/EPUB.hs+2−2
compare with master
unifiedsplit
@@ -14,7 +14,7 @@ import Text.Pandoc.Walk (walk, query)
14import Text.Pandoc.Generic(bottomUp)
14import Text.Pandoc.Generic(bottomUp)
15import Text.Pandoc.Readers.HTML (readHtml)
15import Text.Pandoc.Readers.HTML (readHtml)
16import Text.Pandoc.Options ( ReaderOptions(..), readerTrace)
16import Text.Pandoc.Options ( ReaderOptions(..), readerTrace)
17−import Text.Pandoc.Shared (escapeURI, collapseFilePath)
17+import Text.Pandoc.Shared (escapeURI, collapseFilePath, addMetaField)
18import Text.Pandoc.MediaBag (MediaBag, insertMedia)
18import Text.Pandoc.MediaBag (MediaBag, insertMedia)
19import Text.Pandoc.Compat.Except (MonadError, throwError, runExcept, Except)
19import Text.Pandoc.Compat.Except (MonadError, throwError, runExcept, Except)
20import qualified Text.Pandoc.Builder as B
20import qualified Text.Pandoc.Builder as B
@@ -155,7 +155,7 @@ parseMeta content = do
155-- http://www.idpf.org/epub/30/spec/epub30-publications.html#sec-metadata-elem
155-- http://www.idpf.org/epub/30/spec/epub30-publications.html#sec-metadata-elem
156parseMetaItem :: Element -> Meta -> Meta
156parseMetaItem :: Element -> Meta -> Meta
157parseMetaItem e@(stripNamespace . elName -> field) meta =
157parseMetaItem e@(stripNamespace . elName -> field) meta =
158− B.setMeta (renameMeta field) (B.str $ strContent e) meta
158+ addMetaField (renameMeta field) (B.str $ strContent e) meta
159
159
160renameMeta :: String -> String
160renameMeta :: String -> String
161renameMeta "creator" = "author"
161renameMeta "creator" = "author"