diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-04-07 17:08:52 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-04-07 17:08:52 -0700 |
| commit | 66f8dc14b7aaa35b7bad31117103cc1596a27ac2 (patch) | |
| tree | 1e0fa3c916a219823bda0b661e75df758213c70c /src/Text/Pandoc | |
| parent | 4fce1a63b1ce6faa133645a2c75e7fa3a5d1b948 (diff) | |
| download | pandoc-66f8dc14b7aaa35b7bad31117103cc1596a27ac2.tar.gz | |
Docx writer: Fixed multi-paragraph list items.
Previously they each got a list marker.
Closes #457.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Writers/Docx.hs | 5 |
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)] () |