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')
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