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