From d234157d25e13cdb84e96404dfae610c1ad4b4d6 Mon Sep 17 00:00:00 2001
From: Clare Macrae <github@cfmacrae.fastmail.co.uk>
Date: Wed, 2 Jul 2014 21:26:24 +0100
Subject: DokuWiki output: Implement  blockquotes properly

TODO Also implement nested blockquotes.
---
 src/Text/Pandoc/Writers/DokuWiki.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Text/Pandoc/Writers')

diff --git a/src/Text/Pandoc/Writers/DokuWiki.hs b/src/Text/Pandoc/Writers/DokuWiki.hs
index 663bcce2e..8ea1841eb 100644
--- a/src/Text/Pandoc/Writers/DokuWiki.hs
+++ b/src/Text/Pandoc/Writers/DokuWiki.hs
@@ -32,7 +32,7 @@ DokuWiki:  <https://www.dokuwiki.org/dokuwiki>
 
 {-
     [ ] Correct handling of Span
-    [ ] Don't generate <blockquote>...
+    [ ] Implement nested blockquotes (currently only ever does one level)
     [ ] Don't generate lists using <ol> and <ul>
     [ ] Implement alignment of text in tables
     [ ] Implement comments
@@ -150,7 +150,7 @@ blockToDokuWiki _ (CodeBlock (_,classes,_) str) = do
 
 blockToDokuWiki opts (BlockQuote blocks) = do
   contents <- blockListToDokuWiki opts blocks
-  return $ "<blockquote>" ++ contents ++ "</blockquote>"
+  return $ "> " ++ contents
 
 blockToDokuWiki opts (Table capt aligns _ headers rows') = do
   let alignStrings = map alignmentToString aligns
-- 
cgit v1.2.3