diff options
| author | Clare Macrae <github@cfmacrae.fastmail.co.uk> | 2014-07-01 21:42:21 +0100 |
|---|---|---|
| committer | Clare Macrae <github@cfmacrae.fastmail.co.uk> | 2014-07-01 21:42:21 +0100 |
| commit | 244c4eee7487e386e3e6ff7cf78146385eef9d1f (patch) | |
| tree | d9336d8ac7eff501b58d0c214db6c41ed57dc4cd /src/Text | |
| parent | 072757916754a11cc7837d343c5c63ee1585a35b (diff) | |
| download | pandoc-244c4eee7487e386e3e6ff7cf78146385eef9d1f.tar.gz | |
Remove stray <div> and </div> from DokuWiki output (#386)
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Writers/DokuWiki.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/Text/Pandoc/Writers/DokuWiki.hs b/src/Text/Pandoc/Writers/DokuWiki.hs index ad68425ff..31057f09e 100644 --- a/src/Text/Pandoc/Writers/DokuWiki.hs +++ b/src/Text/Pandoc/Writers/DokuWiki.hs @@ -34,7 +34,6 @@ DokuWiki: <https://www.dokuwiki.org/dokuwiki> [ ] Correct handling of Span [ ] Don't generate <blockquote>... [ ] Don't generate lists using <ol> and <ul> - [ ] Don't generate <div> [ ] Implement alignment of text in tables [ ] Implement comments [ ] Work through the Dokuwiki spec, and check I've not missed anything out @@ -47,7 +46,6 @@ import Text.Pandoc.Definition import Text.Pandoc.Options import Text.Pandoc.Shared import Text.Pandoc.Writers.Shared -import Text.Pandoc.Pretty (render) import Text.Pandoc.Templates (renderTemplate') import Data.List ( intersect, intercalate ) import Network.URI ( isURI ) @@ -97,10 +95,9 @@ blockToDokuWiki :: WriterOptions -- ^ Options blockToDokuWiki _ Null = return "" -blockToDokuWiki opts (Div attrs bs) = do +blockToDokuWiki opts (Div _attrs bs) = do contents <- blockListToDokuWiki opts bs - return $ render Nothing (tagWithAttrs "div" attrs) ++ "\n" ++ - contents ++ "\n" ++ "</div>" + return $ contents ++ "\n" blockToDokuWiki opts (Plain inlines) = inlineListToDokuWiki opts inlines |