diff options
| author | Mauro Bieg <mb21@users.noreply.github.com> | 2017-05-03 12:13:25 +0200 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-05-03 12:13:25 +0200 |
| commit | e02cfcdeaccf588399579283998a7fb93a5c08f6 (patch) | |
| tree | fbebd6449d49370f7ebc2b37ed3bcf3842ce6e0d | |
| parent | cd2551c16c1da0404b8de182f17160aebb69219d (diff) | |
Markdown Writer: put space before reference link definitions
Fixes #3630 (#3631).
Previously the attributes in link reference definitions did not have a space preceding.
| -rw-r--r-- | src/Text/Pandoc/Writers/Markdown.hs | 2 | ||||
| -rw-r--r-- | test/command/3630.md | 8 |
2 files changed, 9 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs index 8e3ac3665..655fd8780 100644 --- a/src/Text/Pandoc/Writers/Markdown.hs +++ b/src/Text/Pandoc/Writers/Markdown.hs @@ -241,7 +241,7 @@ keyToMarkdown opts (label', (src, tit), attr) = do else space <> "\"" <> text tit <> "\"" return $ nest 2 $ hang 2 ("[" <> label' <> "]:" <> space) (text src <> tit') - <> linkAttributes opts attr + <+> linkAttributes opts attr -- | Return markdown representation of notes. notesToMarkdown :: PandocMonad m => WriterOptions -> [[Block]] -> MD m Doc diff --git a/test/command/3630.md b/test/command/3630.md new file mode 100644 index 000000000..db3a17dda --- /dev/null +++ b/test/command/3630.md @@ -0,0 +1,8 @@ +``` +% pandoc -f markdown -t markdown --reference-links +{#myId} +^D +![foo] + + [foo]: bar.png {#myId} +``` |