From dd454eb5ed5381a5bf57bb073cdf052a3f3d6817 Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Mon, 9 Jun 2008 21:08:06 +0000
Subject: [PATCH] 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(-)
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))