diff options
| author | claremacrae <github@cfmacrae.fastmail.co.uk> | 2013-07-28 19:19:33 +0100 |
|---|---|---|
| committer | claremacrae <github@cfmacrae.fastmail.co.uk> | 2013-07-28 19:19:33 +0100 |
| commit | b14b2d6a85267cee3649048bb761a48cc0ab30be (patch) | |
| tree | ea518d6029d9577811357891f2b999d0faf6cd1d /src/Text/Pandoc/Writers/DokuWiki.hs | |
| parent | b5f86a665d272a76d768ccdc6d7c19b13e884d29 (diff) | |
Implement footnotes in dokuwiki writer (#386)
Diffstat (limited to 'src/Text/Pandoc/Writers/DokuWiki.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/DokuWiki.hs | 6 |
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 |