Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Docx writer: Don't indent first level of lists.

Browse source
This commit is contained in:
John MacFarlane 2012-01-20 13:03:47 -08:00
parent 1a8594f907
commit 2a84e748a9
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Text/Pandoc/Writers/Docx.hs
View file

@ -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)] () ]