Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Markdown writer: ensure that a new csl-block begins on a new line.

Browse source 
This just looks better and doesn't affect the semantics.
See #6921.
This commit is contained in:
John MacFarlane 2020-12-04 10:55:48 -08:00
parent 68bcddeb21
commit dc3ef5201f
2 changed files with 10 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/Text/Pandoc/Writers/Markdown.hs
View file

@ -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 ->

6
test/command/pandoc-citeproc-53.md
View file

@ -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}
:::
:::