From 244c4eee7487e386e3e6ff7cf78146385eef9d1f Mon Sep 17 00:00:00 2001
From: Clare Macrae <github@cfmacrae.fastmail.co.uk>
Date: Tue, 1 Jul 2014 21:42:21 +0100
Subject: Remove stray <div> and </div> from DokuWiki output (#386)

---
 src/Text/Pandoc/Writers/DokuWiki.hs | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

(limited to 'src/Text')

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
-- 
cgit v1.2.3