Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

OpenDocument writer: Use different bullets for different list levels.

Browse source 
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1283 788f1e2b-df1e-0410-8736-df70ead52e1b
This commit is contained in:
fiddlosopher 2008-06-09 21:08:06 +00:00
parent 2f88263833
commit dd454eb5ed
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
Text/Pandoc/Writers/OpenDocument.hs
View file

@ -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))