@@ -64,7 +64,6 @@ data FbRenderState = FbRenderState
6464 { footnotes :: [ (Int, String, [Content]) ] -- ^ #, ID, text
6565 , imagesToFetch :: [ (String, String) ] -- ^ filename, URL or path
6666 , parentListMarker :: String -- ^ list marker of the parent ordered list
67− , parentBulletLevel :: Int -- ^ nesting level of the unordered list
6867 , writerOptions :: WriterOptions
6968 } deriving (Show)
7069
@@ -73,7 +72,7 @@ type FBM m = StateT FbRenderState m
7372
7473newFB :: FbRenderState
7574newFB = FbRenderState { footnotes = [], imagesToFetch = []
76− , parentListMarker = "", parentBulletLevel = 0
75+ , parentListMarker = ""
7776 , writerOptions = def }
7877
7978data ImageMode = NormalImage | InlineImage deriving (Eq)
@@ -347,15 +346,12 @@ blockToXml (OrderedList a bss) = do
347346 concat <$> zipWithM mkitem markers bss
348347blockToXml (BulletList bss) = do
349348 state <- get
350− let level = parentBulletLevel state
351349 let pmrk = parentListMarker state
352− let prefix = replicate (length pmrk) ' '
353− let bullets = ["\x2022", "\x25e6", "*", "\x2043", "\x2023"]
354− let mrk = prefix ++ bullets !! (level `mod` length bullets)
350+ let mrk = pmrk ++ "•"
355351 let mkitem bs = do
356− modify (\s -> s { parentBulletLevel = level+1 })
352+ modify (\s -> s { parentListMarker = mrk ++ " "})
357353 item <- cMapM blockToXml $ plainToPara $ indentBlocks (mrk ++ " ") bs
358− modify (\s -> s { parentBulletLevel = level }) -- restore bullet level
354+ modify (\s -> s { parentListMarker = pmrk }) -- old parent marker
359355 return item
360356 cMapM mkitem bss
361357blockToXml (DefinitionList defs) =