diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-06-09 21:08:06 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-06-09 21:08:06 +0000 |
| commit | dd454eb5ed5381a5bf57bb073cdf052a3f3d6817 (patch) | |
| tree | 95575d99b2debb18a28d5b154bfee7fc50fbb042 | |
| parent | 2f882638335684ada09c226b6d8d82510c467a4e (diff) | |
| download | pandoc-dd454eb5ed5381a5bf57bb073cdf052a3f3d6817.tar.gz | |
OpenDocument writer: Use different bullets for different list levels.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1283 788f1e2b-df1e-0410-8736-df70ead52e1b
| -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)) |