90dcd0b · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

Powerpoint writer: Avoid overlapping blocks in column output.

90dcd0bJesse Rosenthal9 years ago

src/Text/Pandoc/Writers/Powerpoint.hs+10−2

@@ -624,8 +624,16 @@ blocksToSlide' _ (blk : blks)

624 (mapM (P.report . BlockNotRendered) blks >> return ())

625 unless (null remaining)

626 (mapM (P.report . BlockNotRendered) remaining >> return ())

627+ mbSplitBlksL <- splitBlocks blksL

628+ mbSplitBlksR <- splitBlocks blksR

629+ let blksL' = case mbSplitBlksL of

630+ bs : _ -> bs

631+ [] -> []

632+ let blksR' = case mbSplitBlksR of

633+ bs : _ -> bs

634+ [] -> []

627− shapesL <- blocksToShapes blksL

635+ shapesL <- blocksToShapes blksL'

628− shapesR <- blocksToShapes blksR

636+ shapesR <- blocksToShapes blksR'

629 return $ TwoColumnSlide { twoColumnSlideHeader = []

637 return $ TwoColumnSlide { twoColumnSlideHeader = []

630 , twoColumnSlideLeft = shapesL

638 , twoColumnSlideLeft = shapesL

631 , twoColumnSlideRight = shapesR

639 , twoColumnSlideRight = shapesR