diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-01-20 13:03:47 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-01-20 13:03:47 -0800 |
| commit | 2a84e748a90e58e8accb4d9274505d805ac5f8f8 (patch) | |
| tree | 96f5acceab0c031228dcdecfb0651bab69e1d7cb /src | |
| parent | 1a8594f90763978074801fb763f7f0b57ab874b4 (diff) | |
| download | pandoc-2a84e748a90e58e8accb4d9274505d805ac5f8f8.tar.gz | |
Docx writer: Don't indent first level of lists.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/Docx.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs index 000f15f22..1f28e5d17 100644 --- a/src/Text/Pandoc/Writers/Docx.hs +++ b/src/Text/Pandoc/Writers/Docx.hs @@ -77,7 +77,7 @@ defaultWriterState = WriterState{ , stSectionIds = [] , stExternalLinks = M.empty , stImages = M.empty - , stListLevel = 0 -- not in a list + , stListLevel = -1 , stListMarker = NoMarker , stNumStyles = M.fromList [(NoMarker, 0)] , stLists = [NoMarker] @@ -477,7 +477,7 @@ getParaProps = do props <- gets stParaProperties listLevel <- gets stListLevel numid <- getNumId - let listPr = if listLevel >= 1 + let listPr = if listLevel >= 0 then [ mknode "w:numPr" [] [ mknode "w:numId" [("w:val",show numid)] () , mknode "w:ilvl" [("w:val",show listLevel)] () ] |