aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Writers/DokuWiki.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/DokuWiki.hs b/src/Text/Pandoc/Writers/DokuWiki.hs
index c4a99edca..b172741de 100644
--- a/src/Text/Pandoc/Writers/DokuWiki.hs
+++ b/src/Text/Pandoc/Writers/DokuWiki.hs
@@ -38,7 +38,6 @@ DokuWiki: <https://www.dokuwiki.org/dokuwiki>
[ ] Don't generate <div>
[ ] Implement conversion of tables
[ ] Implement comments
- [ ] Implement footnotes
[ ] Work through the Dokuwiki spec, and check I've not missed anything out
[ ] Test the output in Dokuwiki - and compare against the display of another format, e.g. HTML
[ ] Remove dud/duplicate code
@@ -77,7 +76,8 @@ pandocToDokuWiki opts (Pandoc meta blocks) = do
body <- blockListToDokuWiki opts blocks
notesExist <- get >>= return . stNotes
let notes = if notesExist
- then "\n<references />"
+ then "" -- TODO Was "\n<references />" Check whether I can really remove this:
+ -- if it is definitely to do with footnotes, can remove this whole bit
else ""
let main = body ++ notes
let context = defField "body" main
@@ -438,5 +438,5 @@ inlineToDokuWiki opts (Image alt (source, tit)) = do
inlineToDokuWiki opts (Note contents) = do
contents' <- blockListToDokuWiki opts contents
modify (\s -> s { stNotes = True })
- return $ "<ref>" ++ contents' ++ "</ref>"
+ return $ "((" ++ contents' ++ "))"
-- note - may not work for notes with multiple blocks