Merge pull request #1523 from jkr/dropCap2
Docx reader: Make dropcap combining more efficient.
commit712ae610e0f0e34f0dc1e78f0ed671ce7f2cabc9
authorJohn MacFarlane <jgm@berkeley.edu>
dateTue 12 Aug 2014, 07:16 (12 years ago)
parent4c88e64e4a8e4a
src/Text/Pandoc/Readers/Docx.hs+3−1
@@ -462,7 +462,9 @@ bodyPartToBlocks (Paragraph pPr parparts)
462462bodyPartToBlocks (Paragraph pPr parparts) = do
463463 ils <- parPartsToInlines parparts >>= (return . normalizeSpaces)
464464 dropIls <- gets docxDropCap
465− let ils' = reduceList $ dropIls ++ ils
465+ let ils' = case ils of
466+ (x:xs) -> reduceList (dropIls ++ [x]) ++ xs
467+ [] -> dropIls
466468 if dropCap pPr
467469 then do modify $ \s -> s { docxDropCap = ils' }
468470 return []