Markdown writer: fix indentation issue in footnotes.

Closes #7801.

1 files changed, 7 insertions, 3 deletions

diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs
index 5e3e52ce5..e4eaae410 100644
--- a/src/Text/Pandoc/Writers/Markdown.hs
+++ b/src/Text/Pandoc/Writers/Markdown.hs
@@ -282,9 +282,13 @@ noteToMarkdown opts num blocks = do
                   then literal "[^" <> num' <> literal "]:"
                   else literal "[" <> num' <> literal "]"
   let markerSize = 4 + offset num'
-  let spacer = case writerTabStop opts - markerSize of
-                     n | n > 0  -> literal $ T.replicate n " "
-                     _ -> literal " "
+  let hspacer = case writerTabStop opts - markerSize of
+                      n | n > 0  -> literal $ T.replicate n " "
+                      _ -> literal " "
+  let spacer = case blocks of
+                    Para{}:_ -> hspacer
+                    Plain{}:_ -> hspacer
+                    _ -> cr
   return $ if isEnabled Ext_footnotes opts
               then hang (writerTabStop opts) (marker <> spacer) contents
               else marker <> spacer <> contents