aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Writers
diff options
context:
space:
mode:
authorClare Macrae <github@cfmacrae.fastmail.co.uk>2014-07-02 21:26:24 +0100
committerClare Macrae <github@cfmacrae.fastmail.co.uk>2014-07-02 21:26:24 +0100
commitd234157d25e13cdb84e96404dfae610c1ad4b4d6 (patch)
tree5208ed169abc273f94a3004071205c30d058e8f3 /src/Text/Pandoc/Writers
parent92a962ba63fc8a956cf48a828f200bf10b72cc35 (diff)
downloadpandoc-d234157d25e13cdb84e96404dfae610c1ad4b4d6.tar.gz
DokuWiki output: Implement blockquotes properly
TODO Also implement nested blockquotes.
Diffstat (limited to 'src/Text/Pandoc/Writers')
-rw-r--r--src/Text/Pandoc/Writers/DokuWiki.hs4
1 files changed, 2 insertions, 2 deletions
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