e08776b · typeable/pandoc

git.iko.soy/typeable/pandoc

Powerpoint writer: code cleanup

Last commit accidentally left commented-out code in.

commite08776b9d51a90e9f948f8f5dd2c3c2588d50942 authorJesse Rosenthal <jrosenthal@jhu.edu> dateSat 13 Jan 2018, 09:34 (9 years ago) parenta842d3a

1 file changed−7

unifiedsplit

src/Text/Pandoc/Writers/Powerpoint.hs−7

@@ -868,13 +868,6 @@ combineShapes (pic@(Pic _ _ _ _) : ss) = pic : combineShapes ss

868868combineShapes ((TextBox []) : ss) = combineShapes ss

869869combineShapes (s : TextBox [] : ss) = combineShapes (s : ss)

870870combineShapes ((TextBox (p:ps)) : (TextBox (p':ps')) : ss) =

871− -- | pPropHeaderType (paraProps p) == Just TitleHeader ||

872− -- pPropHeaderType (paraProps p) == Just SlideHeader =

873− -- TextBox [p] : (combineShapes $ TextBox ps : s' : ss)

874− -- | pPropHeaderType (paraProps p') == Just TitleHeader ||

875− -- pPropHeaderType (paraProps p') == Just SlideHeader =

876− -- s : TextBox [p'] : (combineShapes $ TextBox ps' : ss)

877− -- | otherwise = combineShapes $ TextBox ((p:ps) ++ (p':ps')) : ss

878871 combineShapes $ TextBox ((p:ps) ++ (p':ps')) : ss

879872combineShapes (s:ss) = s : combineShapes ss

880873