Use MetaInlines not MetaBlocks for multimarkdown metadata fields.
This gives better results in converting to e.g. pandoc markdown.
Ref: <https://groups.google.com/d/msgid/pandoc-discuss/9728d1f4-040e-4392-aa04-148f648a8dfdn%40googlegroups.com>
commit73d394ca2adff31a384404ae25665b36c7d0bba0
authorJohn MacFarlane <jgm@berkeley.edu>
dateSun 18 Apr 2021, 22:01 (6 years ago)
parent8d584b5
src/Text/Pandoc/Readers/Markdown.hs+1−1
@@ -298,7 +298,7 @@ kvPair allowEmpty = try $ do
298298 (try $ newline >> lookAhead (blankline <|> nonspaceChar))
299299 guard $ allowEmpty || not (T.null val)
300300 let key' = T.concat $ T.words $ T.toLower key
301− let val' = MetaBlocks $ B.toList $ B.plain $ B.text val
301+ let val' = MetaInlines $ B.toList $ B.text val
302302 return (key',val')
303303
304304parseMarkdown :: PandocMonad m => MarkdownParser m Pandoc
test/command/mmd-metadata.mdnew file+20
@@ -0,0 +1,20 @@
1+```
2+% pandoc -f markdown_mmd -t markdown -s
3+Title: Blah blah blah
4+Author: Doo de Doo
5+Base Header Level: 1
6+Bibliography: Pubs.bib
7+Lang: en-GB
8+
9+body
10+^D
11+---
12+author: Doo de Doo
13+baseheaderlevel: 1
14+bibliography: Pubs.bib
15+lang: en-GB
16+title: Blah blah blah
17+---
18+
19+body
20+```