diff options
Diffstat (limited to 'Text/Pandoc/Writers/ConTeXt.hs')
-rw-r--r-- | Text/Pandoc/Writers/ConTeXt.hs | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/Text/Pandoc/Writers/ConTeXt.hs b/Text/Pandoc/Writers/ConTeXt.hs index cd1d09e0c..1695d70e7 100644 --- a/Text/Pandoc/Writers/ConTeXt.hs +++ b/Text/Pandoc/Writers/ConTeXt.hs @@ -41,8 +41,6 @@ data WriterState = , stOptions :: WriterOptions -- writer options } -data BlockWrapper = Pad Doc | Reg Doc - orderedListStyles = cycle ["[n]","[a]", "[r]", "[g]"] -- | Convert Pandoc to ConTeXt. @@ -229,12 +227,6 @@ defListItemToConTeXt (term, def) = do def' <- blockListToConTeXt def return $ Pad $ text "\\startdescr{" <> term' <> char '}' $$ def' $$ text "\\stopdescr" -wrappedBlocksToDoc :: [BlockWrapper] -> Doc -wrappedBlocksToDoc = foldr addBlock empty - where addBlock (Pad d) accum | isEmpty accum = d - addBlock (Pad d) accum = d $$ text "" $$ accum - addBlock (Reg d) accum = d $$ accum - -- | Convert list of block elements to ConTeXt. blockListToConTeXt :: [Block] -> State WriterState Doc blockListToConTeXt lst = mapM blockToConTeXt lst >>= return . wrappedBlocksToDoc |