diff options
| author | Clare Macrae <clare.macrae@googlemail.com> | 2013-07-14 14:58:42 +0100 |
|---|---|---|
| committer | Clare Macrae <clare.macrae@googlemail.com> | 2013-07-14 14:58:42 +0100 |
| commit | 2afa4ec92418d87002f99c44c71fe743fa1f30d0 (patch) | |
| tree | 193af99a4c9e44d477c41c4c670f4221f0a621b5 /src | |
| parent | a43e5983da90419c5b6c01fe03febc3797c2d9aa (diff) | |
| download | pandoc-2afa4ec92418d87002f99c44c71fe743fa1f30d0.tar.gz | |
Implemented Emphasis (italic) and Strong (bold) for dokuwiki (#386)
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/DokuWiki.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/DokuWiki.hs b/src/Text/Pandoc/Writers/DokuWiki.hs index dabece5f0..e9c0ecb02 100644 --- a/src/Text/Pandoc/Writers/DokuWiki.hs +++ b/src/Text/Pandoc/Writers/DokuWiki.hs @@ -335,11 +335,11 @@ inlineToDokuWiki :: WriterOptions -> Inline -> State WriterState String inlineToDokuWiki opts (Emph lst) = do contents <- inlineListToDokuWiki opts lst - return $ "''" ++ contents ++ "''" + return $ "//" ++ contents ++ "//" inlineToDokuWiki opts (Strong lst) = do contents <- inlineListToDokuWiki opts lst - return $ "'''" ++ contents ++ "'''" + return $ "**" ++ contents ++ "**" inlineToDokuWiki opts (Strikeout lst) = do contents <- inlineListToDokuWiki opts lst |