diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-01-20 13:07:14 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-01-20 13:07:14 -0800 |
| commit | 525881ee522ea36ae48618b1cf184ba66ea91c04 (patch) | |
| tree | f34f95186c9236445e21fca1d653c13f990ae248 | |
| parent | 2a84e748a90e58e8accb4d9274505d805ac5f8f8 (diff) | |
| download | pandoc-525881ee522ea36ae48618b1cf184ba66ea91c04.tar.gz | |
Docx writer: Start bullet lists with solid bullet.
| -rw-r--r-- | src/Text/Pandoc/Writers/Docx.hs | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs index 1f28e5d17..358cc468f 100644 --- a/src/Text/Pandoc/Writers/Docx.hs +++ b/src/Text/Pandoc/Writers/Docx.hs @@ -251,12 +251,13 @@ mkLvl marker lvl = ,show n) step = 720 hang = step `div` 2 - bulletFor 1 = "\8226" - bulletFor 2 = "\9702" - bulletFor 3 = "\8227" - bulletFor 4 = "\8259" - bulletFor 5 = "\8226" - bulletFor _ = "\9702" + bulletFor 0 = "\8226" + bulletFor 1 = "\9702" + bulletFor 2 = "\8227" + bulletFor 3 = "\8259" + bulletFor 4 = "\8226" + bulletFor 5 = "\9702" + bulletFor _ = "\8227" styleFor UpperAlpha _ = "upperLetter" styleFor LowerAlpha _ = "lowerLetter" styleFor UpperRoman _ = "upperRoman" |