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