From dd454eb5ed5381a5bf57bb073cdf052a3f3d6817 Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Mon, 9 Jun 2008 21:08:06 +0000 Subject: OpenDocument writer: Use different bullets for different list levels. git-svn-id: https://pandoc.googlecode.com/svn/trunk@1283 788f1e2b-df1e-0410-8736-df70ead52e1b --- Text/Pandoc/Writers/OpenDocument.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'Text/Pandoc/Writers/OpenDocument.hs') 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)) -- cgit v1.2.3