diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Docx.hs | 2 | ||||
| -rw-r--r-- | tests/docx.drop_cap.native | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/Docx.hs b/src/Text/Pandoc/Readers/Docx.hs index d6d5f317c..c856ca30a 100644 --- a/src/Text/Pandoc/Readers/Docx.hs +++ b/src/Text/Pandoc/Readers/Docx.hs @@ -462,7 +462,7 @@ bodyPartToBlocks (Paragraph pPr parparts) bodyPartToBlocks (Paragraph pPr parparts) = do ils <- parPartsToInlines parparts >>= (return . normalizeSpaces) dropIls <- gets docxDropCap - let ils' = dropIls ++ ils + let ils' = reduceList $ dropIls ++ ils if dropCap pPr then do modify $ \s -> s { docxDropCap = ils' } return [] diff --git a/tests/docx.drop_cap.native b/tests/docx.drop_cap.native index e6eb29de7..d361cfb0b 100644 --- a/tests/docx.drop_cap.native +++ b/tests/docx.drop_cap.native @@ -1,4 +1,4 @@ -[Para [Str "D",Str "rop",Space,Str "cap."] +[Para [Str "Drop",Space,Str "cap."] ,Para [Str "Next",Space,Str "paragraph."] -,Para [Str "D",Str "rop",Space,Str "cap",Space,Str "in",Space,Str "margin."] +,Para [Str "Drop",Space,Str "cap",Space,Str "in",Space,Str "margin."] ,Para [Str "Drop",Space,Str "cap",Space,Str "(not",Space,Str "really)."]] |