aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2012-04-07 17:08:52 -0700
committerJohn MacFarlane <fiddlosopher@gmail.com>2012-04-07 17:08:52 -0700
commit66f8dc14b7aaa35b7bad31117103cc1596a27ac2 (patch)
tree1e0fa3c916a219823bda0b661e75df758213c70c /src/Text
parent4fce1a63b1ce6faa133645a2c75e7fa3a5d1b948 (diff)
downloadpandoc-66f8dc14b7aaa35b7bad31117103cc1596a27ac2.tar.gz
Docx writer: Fixed multi-paragraph list items.
Previously they each got a list marker. Closes #457.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Writers/Docx.hs5
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs
index a2995b705..f2bef9e6b 100644
--- a/src/Text/Pandoc/Writers/Docx.hs
+++ b/src/Text/Pandoc/Writers/Docx.hs
@@ -488,7 +488,10 @@ getParaProps :: WS [Element]
getParaProps = do
props <- gets stParaProperties
listLevel <- gets stListLevel
- numid <- getNumId
+ listMarker <- gets stListMarker
+ numid <- case listMarker of
+ NoMarker -> return 1
+ _ -> getNumId
let listPr = if listLevel >= 0
then [ mknode "w:numPr" []
[ mknode "w:numId" [("w:val",show numid)] ()