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.
This commit is contained in:
Jesse Rosenthal 2015-02-10 21:05:13 -05:00
parent d623a5c7e9
commit 25ef68d266

View file

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