git.iko.soy/typeable/pandoc
on master help sign in
Markdown Writer: put space before reference link definitions
e02cfcdMauro Bieg
src/Text/Pandoc/Writers/Markdown.hs+1−1
compare with master
unifiedsplit
@@ -241,7 +241,7 @@ keyToMarkdown opts (label', (src, tit), attr) = do
241 else space <> "\"" <> text tit <> "\""
241 else space <> "\"" <> text tit <> "\""
242 return $ nest 2 $ hang 2
242 return $ nest 2 $ hang 2
243 ("[" <> label' <> "]:" <> space) (text src <> tit')
243 ("[" <> label' <> "]:" <> space) (text src <> tit')
244− <> linkAttributes opts attr
244+ <+> linkAttributes opts attr
245
245
246-- | Return markdown representation of notes.
246-- | Return markdown representation of notes.
247notesToMarkdown :: PandocMonad m => WriterOptions -> [[Block]] -> MD m Doc
247notesToMarkdown :: PandocMonad m => WriterOptions -> [[Block]] -> MD m Doc
test/command/3630.mdnew file+8
@@ -0,0 +1,8 @@
1+```
2+% pandoc -f markdown -t markdown --reference-links
3+![foo](bar.png){#myId}
4+^D
5+![foo]
6+
7+ [foo]: bar.png {#myId}
8+```