@@ -1045,6 +1045,7 @@ inlineToOpenXML opts (Math mathType str) = do
1045 let displayType = if mathType == DisplayMath
1045 let displayType = if mathType == DisplayMath
1046 then DisplayBlock
1046 then DisplayBlock
1047 else DisplayInline
1047 else DisplayInline
1048+ when (displayType == DisplayBlock) setFirstPara
1048 case writeOMML displayType <$> readTeX str of
1049 case writeOMML displayType <$> readTeX str of
1049 Right r -> return [r]
1050 Right r -> return [r]
1050 Left _ -> inlinesToOpenXML opts (texMathToInlines mathType str)
1051 Left _ -> inlinesToOpenXML opts (texMathToInlines mathType str)