From bd69218451037df2215ba0cbbb95eda2c3000450 Mon Sep 17 00:00:00 2001
From: Agustín Martín Barbero <agusmbaterra@gmail.com>
Date: Fri, 19 Jul 2019 18:32:43 +0200
Subject: Change order of ilvl and numId in document.xml (#5647)
Workaround for Word Online shortcomming. Fixes #5645
Also, make list para properties go first.
This reordering of properties shouldn't be necessary but
it seems Word Online does not understand the docx correctly otherwise.
---
src/Text/Pandoc/Writers/Docx.hs | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
(limited to 'src')
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs
index a7b9ee621..5fc004238 100644
--- a/src/Text/Pandoc/Writers/Docx.hs
+++ b/src/Text/Pandoc/Writers/Docx.hs
@@ -1082,9 +1082,9 @@ getParaProps displayMathPara = do
listLevel <- asks envListLevel
numid <- asks envListNumId
let listPr = [mknode "w:numPr" []
- [ mknode "w:numId" [("w:val",show numid)] ()
- , mknode "w:ilvl" [("w:val",show listLevel)] () ] | listLevel >= 0 && not displayMathPara]
- return $ case props ++ listPr of
+ [ mknode "w:ilvl" [("w:val",show listLevel)] ()
+ , mknode "w:numId" [("w:val",show numid)] () ] | listLevel >= 0 && not displayMathPara]
+ return $ case listPr ++ props of
[] -> []
ps -> [mknode "w:pPr" [] ps]
--
cgit v1.2.3