From a9a4e24d29542c16e0b31388a46e5bd808f35539 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Fri, 18 Nov 2011 17:01:38 -0800 Subject: Added fields to track list levels. --- src/Text/Pandoc/Writers/Asciidoc.hs | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 'src/Text') diff --git a/src/Text/Pandoc/Writers/Asciidoc.hs b/src/Text/Pandoc/Writers/Asciidoc.hs index f51c43362..45aa2cbee 100644 --- a/src/Text/Pandoc/Writers/Asciidoc.hs +++ b/src/Text/Pandoc/Writers/Asciidoc.hs @@ -46,13 +46,19 @@ import Data.List ( isPrefixOf, intercalate ) import Text.Pandoc.Pretty import Control.Monad.State -data WriterState = WriterState { defListMarker :: String } +data WriterState = WriterState { defListMarker :: String + , orderedListLevel :: Int + , bulletListLevel :: Int + } -- | Convert Pandoc to Asciidoc. writeAsciidoc :: WriterOptions -> Pandoc -> String writeAsciidoc opts document = evalState (pandocToAsciidoc opts document) WriterState{ - defListMarker = "::" } + defListMarker = "::" + , orderedListLevel = 1 + , bulletListLevel = 1 + } -- | Return markdown representation of document. pandocToAsciidoc :: WriterOptions -> Pandoc -> State WriterState String -- cgit v1.2.3