@@ -46,13 +46,19 @@ import Data.List ( isPrefixOf, intercalate )
4646import Text.Pandoc.Pretty
4747import Control.Monad.State
4848
49−data WriterState = WriterState { defListMarker :: String }
49+data WriterState = WriterState { defListMarker :: String
50+ , orderedListLevel :: Int
51+ , bulletListLevel :: Int
52+ }
5053
5154-- | Convert Pandoc to Asciidoc.
5255writeAsciidoc :: WriterOptions -> Pandoc -> String
5356writeAsciidoc opts document =
5457 evalState (pandocToAsciidoc opts document) WriterState{
55− defListMarker = "::" }
58+ defListMarker = "::"
59+ , orderedListLevel = 1
60+ , bulletListLevel = 1
61+ }
5662
5763-- | Return markdown representation of document.
5864pandocToAsciidoc :: WriterOptions -> Pandoc -> State WriterState String