diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-02-24 05:48:31 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-02-24 05:48:31 +0000 |
| commit | 270eb7bed422ea5e742937fcd24933ffe8033fb4 (patch) | |
| tree | e28be6d5d97465336b514f24eefa7d4c2f0755c1 /Text/Pandoc/Writers | |
| parent | 3d4d897a676bcea6a05ac130cb6cd4e5aec48049 (diff) | |
| download | pandoc-270eb7bed422ea5e742937fcd24933ffe8033fb4.tar.gz | |
Moved BlockWrapper and wrappedBlocksToDoc from ConTeXt writer to Shared.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1242 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'Text/Pandoc/Writers')
| -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 |