From dc3ef5201f9531bc405ac07e763d9f004bb6bc91 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Fri, 4 Dec 2020 10:55:48 -0800
Subject: [PATCH] Markdown writer: ensure that a new csl-block begins on a new
line.
This just looks better and doesn't affect the semantics.
See #6921.
---
src/Text/Pandoc/Writers/Markdown.hs | 7 ++++++-
test/command/pandoc-citeproc-53.md | 6 ++++--
2 files changed, 10 insertions(+), 3 deletions(-)
diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs
index 6aec6b244..5eb47b261 100644
--- a/src/Text/Pandoc/Writers/Markdown.hs
+++ b/src/Text/Pandoc/Writers/Markdown.hs
@@ -1058,7 +1058,12 @@ inlineToMarkdown opts (Span ("",["emoji"],kvs) [Str s]) =
inlineToMarkdown opts (Span attrs ils) = do
variant <- asks envVariant
contents <- inlineListToMarkdown opts ils
- return $ case variant of
+ return $ case attrs of
+ (_,["csl-block"],_) -> (cr <>)
+ (_,["csl-left-margin"],_) -> (cr <>)
+ (_,["csl-indent"],_) -> (cr <>)
+ _ -> id
+ $ case variant of
PlainText -> contents
_ | attrs == nullAttr -> contents
| isEnabled Ext_bracketed_spans opts ->
diff --git a/test/command/pandoc-citeproc-53.md b/test/command/pandoc-citeproc-53.md
index 295f52049..fb8d5c35e 100644
--- a/test/command/pandoc-citeproc-53.md
+++ b/test/command/pandoc-citeproc-53.md
@@ -28,11 +28,13 @@ Doe[^1] Doe[^2] Roe[^3] Roe[^4] Doe[^5] Doe[^6] Roe[^7] Roe[^8]
::: {#refs .references .csl-bib-body}
::: {#ref-a .csl-entry}
-[[Doe J.]{.smallcaps} ]{.csl-block}[2000, *Work A*,.]{.csl-left-margin}
+[[Doe J.]{.smallcaps} ]{.csl-block}
+[2000, *Work A*,.]{.csl-left-margin}
:::
::: {#ref-b .csl-entry}
-[[Roe J.]{.smallcaps} ]{.csl-block}[1990, *Work B*,.]{.csl-left-margin}
+[[Roe J.]{.smallcaps} ]{.csl-block}
+[1990, *Work B*,.]{.csl-left-margin}
:::
:::