git.iko.soy/typeable/pandoc
on master help sign in
Revert "Powerpoint writer: Remove spPr tag from non-body layouts"
8932604Jesse Rosenthal
src/Text/Pandoc/Writers/Powerpoint/Output.hs+1−5
compare with master
unifiedsplit
@@ -1038,11 +1038,7 @@ nonBodyTextToElement layout phType paraElements
1038 let txBody = mknode "p:txBody" [] $
1038 let txBody = mknode "p:txBody" [] $
1039 [mknode "a:bodyPr" [] (), mknode "a:lstStyle" [] ()] ++
1039 [mknode "a:bodyPr" [] (), mknode "a:lstStyle" [] ()] ++
1040 [element]
1040 [element]
1041− emptySpPr = mknode "p:spPr" [] ()
1042− return $
1043− replaceNamedChildren ns "p" "txBody" [txBody] $
1041+ return $ replaceNamedChildren ns "p" "txBody" [txBody] sp
1044− replaceNamedChildren ns "p" "spPr" [emptySpPr] $
1045− sp
1046 -- XXX: TODO
1042 -- XXX: TODO
1047 | otherwise = return $ mknode "p:sp" [] ()
1043 | otherwise = return $ mknode "p:sp" [] ()
1048
1044