diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2018-03-24 10:16:55 -0400 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2018-03-24 10:16:55 -0400 |
| commit | 89326046499ea61bc0e7829de510c3fd6e1f591c (patch) | |
| tree | b8f8a3a1ff64324739b0568e97d596c163c23e0f /src | |
| parent | 187fa4e444ed8fa4a948d965130c3b0b22483e47 (diff) | |
| download | pandoc-89326046499ea61bc0e7829de510c3fd6e1f591c.tar.gz | |
Revert "Powerpoint writer: Remove spPr tag from non-body layouts"
This reverts commit 99fa850a37cc3e56b415754c70ea2d98da709584.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/Powerpoint/Output.hs | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/src/Text/Pandoc/Writers/Powerpoint/Output.hs b/src/Text/Pandoc/Writers/Powerpoint/Output.hs index 26b9c6df4..24bc226b9 100644 --- a/src/Text/Pandoc/Writers/Powerpoint/Output.hs +++ b/src/Text/Pandoc/Writers/Powerpoint/Output.hs @@ -1038,11 +1038,7 @@ nonBodyTextToElement layout phType paraElements let txBody = mknode "p:txBody" [] $ [mknode "a:bodyPr" [] (), mknode "a:lstStyle" [] ()] ++ [element] - emptySpPr = mknode "p:spPr" [] () - return $ - replaceNamedChildren ns "p" "txBody" [txBody] $ - replaceNamedChildren ns "p" "spPr" [emptySpPr] $ - sp + return $ replaceNamedChildren ns "p" "txBody" [txBody] sp -- XXX: TODO | otherwise = return $ mknode "p:sp" [] () |