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

Org reader: allow multiple #+bibliography:.

Browse source
This commit is contained in:
John MacFarlane 2022-03-10 13:31:02 -08:00
parent 18c432024b
commit a7d94dba43
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Text/Pandoc/Readers/Org/Meta.hs
View file

@ -78,7 +78,7 @@ a ~~> b = (a, b)
keywordHandlers :: PandocMonad m => Map Text (OrgParser m ())
keywordHandlers = Map.fromList
[ "author" ~~> lineOfInlines `parseThen` collectLines "author"
, "bibliography" ~~> fmap pure anyLine `parseThen` B.setMeta "bibliography"
, "bibliography" ~~> fmap pure anyLine `parseThen` collectAsList "bibliography"
, "creator" ~~> fmap pure anyLine `parseThen` B.setMeta "creator"
, "date" ~~> lineOfInlines `parseThen` B.setMeta "date"
, "description" ~~> lineOfInlines `parseThen` collectLines "description"
@ -157,7 +157,7 @@ collectLines key value meta =
MetaBool _bool -> []
-- | Accumulate the result as a MetaList under the given key.
collectAsList :: Text -> Inlines -> Meta -> Meta
collectAsList :: B.ToMetaValue a => Text -> a -> Meta -> Meta
collectAsList key value meta =
let value' = metaListAppend meta (B.toMetaValue value)
in B.setMeta key value' meta