@@ -343,12 +343,13 @@ generateStyles acc =
343343bulletListStyle :: Int -> State WriterState (Int,(Int,[Doc]))
344344bulletListStyle l =
345345 let doStyles i = inTags True "text:list-level-style-bullet"
346− [ ("text:level" , show i )
346+ [ ("text:level" , show (i + 1) )
347347 , ("text:style-name" , "Bullet_20_Symbols")
348348 , ("style:num-suffix", "." )
349− , ("text:bullet-char", "*" )
349+ , ("text:bullet-char", [bulletList !! i] )
350350 ] (listLevelStyle i)
351− listElStyle = map doStyles [1..10]
351+ bulletList = map chr $ cycle [8226,8227,8259]
352+ listElStyle = map doStyles [0..9]
352353 in do pn <- paraListStyle l
353354 return (pn, (l, listElStyle))
354355