Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Merge pull request #1523 from jkr/dropCap2

Browse source 
Docx reader: Make dropcap combining more efficient.
This commit is contained in:
John MacFarlane 2014-08-12 07:16:38 -07:00
commit 712ae610e0
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Text/Pandoc/Readers/Docx.hs
View file

@ -462,7 +462,9 @@ bodyPartToBlocks (Paragraph pPr parparts)
bodyPartToBlocks (Paragraph pPr parparts) = do bodyPartToBlocks (Paragraph pPr parparts) = do
ils <- parPartsToInlines parparts >>= (return . normalizeSpaces) ils <- parPartsToInlines parparts >>= (return . normalizeSpaces)
dropIls <- gets docxDropCap dropIls <- gets docxDropCap
let ils' = reduceList $ dropIls ++ ils let ils' = case ils of
(x:xs) -> reduceList (dropIls ++ [x]) ++ xs
[] -> dropIls
if dropCap pPr if dropCap pPr
then do modify $ \s -> s { docxDropCap = ils' } then do modify $ \s -> s { docxDropCap = ils' }
return [] return []