aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Writers
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2012-01-20 13:03:47 -0800
committerJohn MacFarlane <fiddlosopher@gmail.com>2012-01-20 13:03:47 -0800
commit2a84e748a90e58e8accb4d9274505d805ac5f8f8 (patch)
tree96f5acceab0c031228dcdecfb0651bab69e1d7cb /src/Text/Pandoc/Writers
parent1a8594f90763978074801fb763f7f0b57ab874b4 (diff)
downloadpandoc-2a84e748a90e58e8accb4d9274505d805ac5f8f8.tar.gz
Docx writer: Don't indent first level of lists.
Diffstat (limited to 'src/Text/Pandoc/Writers')
-rw-r--r--src/Text/Pandoc/Writers/Docx.hs4
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)] () ]