lee/pandoc
1
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-09-24 08:25:52 +00:00
Code Issues Packages Projects Releases Wiki Activity

Docx reader: combine inlines properly in dropcaps.

Browse Source 
Make sure that adjacent inlines are combined properly in dropcaps. This
updates the test results as well.
This commit is contained in:
Jesse Rosenthal
2014-08-11 23:31:16 -04:00
parent 0808449547
commit 45ec035e93
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/Readers/Docx.hs
+1 -1
View File
@@ -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 []
tests/docx.drop_cap.native
+2 -2
View File
@@ -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)."]]