diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2021-02-06 21:52:12 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2021-02-06 21:52:12 -0800 |
| commit | 8e9131db4edfda6deafdf94939b907e4dce3cbaa (patch) | |
| tree | 5f414d3eb9510cfc49b8b2f1df2bd9f2e6527ebc /src/Text/Pandoc/Readers/Markdown.hs | |
| parent | 0ab3e4048c44b60fbecd7da3f43435f8c0cde49f (diff) | |
| download | pandoc-8e9131db4edfda6deafdf94939b907e4dce3cbaa.tar.gz | |
Markdown reader: improved handling of mmd link attributes in references.
Previously they only worked for links that had titles. Closes #7080.
Diffstat (limited to 'src/Text/Pandoc/Readers/Markdown.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 5c3a21bb7..e46553dd8 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -334,6 +334,8 @@ referenceKey = try $ do skipMany spaceChar notFollowedBy' referenceTitle notFollowedBy' $ guardEnabled Ext_link_attributes >> attributes + notFollowedBy' $ guardEnabled Ext_mmd_link_attributes >> + try (spnl <* keyValAttr) notFollowedBy' (() <$ reference) many1Char $ notFollowedBy space >> litChar let betweenAngles = try $ char '<' >> manyTillChar litChar (char '>') |