Powerpoint writer: Remove spPr tag from non-body layouts
This was causing headers to be misaligned when some templates were used.
commit99fa850a37cc3e56b415754c70ea2d98da709584
authorJesse Rosenthal <jrosenthal@jhu.edu>
dateFri 23 Mar 2018, 16:20 (9 years ago)
parent2ae0c0d
src/Text/Pandoc/Writers/Powerpoint/Output.hs+5−1
@@ -1036,7 +1036,11 @@ nonBodyTextToElement layout phType paraElements
10361036 let txBody = mknode "p:txBody" [] $
10371037 [mknode "a:bodyPr" [] (), mknode "a:lstStyle" [] ()] ++
10381038 [element]
1039− return $ replaceNamedChildren ns "p" "txBody" [txBody] sp
1039+ emptySpPr = mknode "p:spPr" [] ()
1040+ return $
1041+ replaceNamedChildren ns "p" "txBody" [txBody] $
1042+ replaceNamedChildren ns "p" "spPr" [emptySpPr] $
1043+ sp
10401044 -- XXX: TODO
10411045 | otherwise = return $ mknode "p:sp" [] ()
10421046