diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-07-13 16:32:14 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-07-13 16:32:14 +0000 |
| commit | 1b3328ca3869d361dc6d8a9c0025b28f7cf9f0a9 (patch) | |
| tree | bab6a8ef16368a48bdca797d6af6870ce54a98f6 /Text | |
| parent | be719b2a44ecdc1278a81bd9716b1db1af53b2d7 (diff) | |
OpenDocument writer: Indented bulleted lists as we do enumerated lists.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1306 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'Text')
| -rw-r--r-- | Text/Pandoc/Writers/OpenDocument.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Text/Pandoc/Writers/OpenDocument.hs b/Text/Pandoc/Writers/OpenDocument.hs index 0de4d98fd..50a9c397c 100644 --- a/Text/Pandoc/Writers/OpenDocument.hs +++ b/Text/Pandoc/Writers/OpenDocument.hs @@ -383,7 +383,7 @@ bulletListStyle l = , ("text:style-name" , "Bullet_20_Symbols") , ("style:num-suffix", "." ) , ("text:bullet-char", [bulletList !! i] ) - ] (listLevelStyle i) + ] (listLevelStyle (1 + i)) bulletList = map chr $ cycle [8226,8227,8259] listElStyle = map doStyles [0..9] in do pn <- paraListStyle l |