diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2018-03-23 16:20:19 -0400 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2018-03-23 16:29:29 -0400 |
| commit | 99fa850a37cc3e56b415754c70ea2d98da709584 (patch) | |
| tree | fdba5458613dd892b965b9d0644575885d4f547e /src/Text/Pandoc/Writers | |
| parent | 2ae0c0d433d4764487060df387ad8bd0d71d87b8 (diff) | |
| download | pandoc-99fa850a37cc3e56b415754c70ea2d98da709584.tar.gz | |
Powerpoint writer: Remove spPr tag from non-body layouts
This was causing headers to be misaligned when some templates were used.
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/Powerpoint/Output.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Powerpoint/Output.hs b/src/Text/Pandoc/Writers/Powerpoint/Output.hs index 2716bc08b..bad97547d 100644 --- a/src/Text/Pandoc/Writers/Powerpoint/Output.hs +++ b/src/Text/Pandoc/Writers/Powerpoint/Output.hs @@ -1036,7 +1036,11 @@ nonBodyTextToElement layout phType paraElements let txBody = mknode "p:txBody" [] $ [mknode "a:bodyPr" [] (), mknode "a:lstStyle" [] ()] ++ [element] - return $ replaceNamedChildren ns "p" "txBody" [txBody] sp + emptySpPr = mknode "p:spPr" [] () + return $ + replaceNamedChildren ns "p" "txBody" [txBody] $ + replaceNamedChildren ns "p" "spPr" [emptySpPr] $ + sp -- XXX: TODO | otherwise = return $ mknode "p:sp" [] () |