diff options
| -rw-r--r-- | Text/Pandoc/Writers/OpenDocument.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/Text/Pandoc/Writers/OpenDocument.hs b/Text/Pandoc/Writers/OpenDocument.hs index 721b69aee..d2cd6392c 100644 --- a/Text/Pandoc/Writers/OpenDocument.hs +++ b/Text/Pandoc/Writers/OpenDocument.hs @@ -343,12 +343,13 @@ generateStyles acc = bulletListStyle :: Int -> State WriterState (Int,(Int,[Doc])) bulletListStyle l = let doStyles i = inTags True "text:list-level-style-bullet" - [ ("text:level" , show i ) + [ ("text:level" , show (i + 1) ) , ("text:style-name" , "Bullet_20_Symbols") , ("style:num-suffix", "." ) - , ("text:bullet-char", "*" ) + , ("text:bullet-char", [bulletList !! i] ) ] (listLevelStyle i) - listElStyle = map doStyles [1..10] + bulletList = map chr $ cycle [8226,8227,8259] + listElStyle = map doStyles [0..9] in do pn <- paraListStyle l return (pn, (l, listElStyle)) |