summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2014-06-03 11:33:09 -0700
committerJohn MacFarlane <fiddlosopher@gmail.com>2014-06-03 11:33:09 -0700
commit2842ad5a978de758d70801b5279f75b9ba679406 (patch)
tree106137fe94cace313a67610debf66850f84c5441
parent05355ac57b7ccadfa4462f3304a7f6364147c8eb (diff)
Docx writer: Changed abstractNumId numbering scheme.
Now the minimum id used by pandoc is 990. All ids start with "99". This gives some room for a reference.docx to define numbering styles. Note: this is not yet possible, since pandoc generates numbering.xml entirely on its own.
-rw-r--r--src/Text/Pandoc/Writers/Docx.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs
index 572823871..ca0892547 100644
--- a/src/Text/Pandoc/Writers/Docx.hs
+++ b/src/Text/Pandoc/Writers/Docx.hs
@@ -67,10 +67,10 @@ data ListMarker = NoMarker
deriving (Show, Read, Eq, Ord)
listMarkerToId :: ListMarker -> String
-listMarkerToId NoMarker = "0"
-listMarkerToId BulletMarker = "1"
+listMarkerToId NoMarker = "990"
+listMarkerToId BulletMarker = "991"
listMarkerToId (NumberMarker sty delim n) =
- styNum : delimNum : show n
+ '9' : '9' : styNum : delimNum : show n
where styNum = case sty of
DefaultStyle -> '2'
Example -> '3'