diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2015-02-10 21:05:13 -0500 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2015-02-10 21:05:13 -0500 |
| commit | 25ef68d266c437c45a2331d3473673b508cc305f (patch) | |
| tree | d12a12b1116ca92a5581d758d739913ec7bf5b28 | |
| parent | d623a5c7e986ea05bfec5888d25754a59c1a0377 (diff) | |
| download | pandoc-25ef68d266c437c45a2331d3473673b508cc305f.tar.gz | |
Docx Writer: Use FirstParagraph style at beginning.
Before we had used `FirstParagraph` style after Headings, BlockQuotes,
and other blocks a user might not want an indentation after. We hadn't
actually used it for the first paragraph -- i.e. the opening of the
body. This makes sure the first body paragraph gets that style.
| -rw-r--r-- | src/Text/Pandoc/Writers/Docx.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs index c25311454..5ed96b6f3 100644 --- a/src/Text/Pandoc/Writers/Docx.hs +++ b/src/Text/Pandoc/Writers/Docx.hs @@ -614,7 +614,7 @@ writeOpenXML opts (Pandoc meta blocks) = do convertSpace (Str x : Str y : xs) = Str (x ++ y) : xs convertSpace xs = xs let blocks' = bottomUp convertSpace blocks - doc' <- blocksToOpenXML opts blocks' + doc' <- (setFirstPara >> blocksToOpenXML opts blocks') notes' <- reverse `fmap` gets stFootnotes let meta' = title ++ subtitle ++ authors ++ date ++ abstract return (meta' ++ doc', notes') |