aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorclaremacrae <github@cfmacrae.fastmail.co.uk>2013-08-17 12:34:05 +0100
committerclaremacrae <github@cfmacrae.fastmail.co.uk>2013-08-17 12:34:05 +0100
commit0961d499121e20473dfc02cfd1d7282f89436700 (patch)
tree4e283c08b34b43acc0c0b05d472773fb887b53f4 /src/Text
parent4c48433a2aaae080acbd74450bd5f70b714475be (diff)
downloadpandoc-0961d499121e20473dfc02cfd1d7282f89436700.tar.gz
Fixed inlined code in dokuwiki writer (#386)
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Writers/DokuWiki.hs7
1 files changed, 1 insertions, 6 deletions
diff --git a/src/Text/Pandoc/Writers/DokuWiki.hs b/src/Text/Pandoc/Writers/DokuWiki.hs
index b9eb444b3..3f4efb1b3 100644
--- a/src/Text/Pandoc/Writers/DokuWiki.hs
+++ b/src/Text/Pandoc/Writers/DokuWiki.hs
@@ -48,7 +48,6 @@ import Text.Pandoc.Options
import Text.Pandoc.Shared
import Text.Pandoc.Writers.Shared
import Text.Pandoc.Templates (renderTemplate')
-import Text.Pandoc.XML ( escapeStringForXML ) -- TODO Remove this line
import Data.List ( intersect, intercalate )
import Network.URI ( isURI )
import Control.Monad.State
@@ -86,10 +85,6 @@ pandocToDokuWiki opts (Pandoc meta blocks) = do
then return $ renderTemplate' (writerTemplate opts) context
else return main
--- | Escape special characters for DokuWiki.
-escapeString :: String -> String -- TODO Remove this
-escapeString = escapeStringForXML
-
-- | Convert Pandoc block element to DokuWiki.
blockToDokuWiki :: WriterOptions -- ^ Options
-> Block -- ^ Block element
@@ -412,7 +407,7 @@ inlineToDokuWiki opts (Quoted DoubleQuote lst) = do
inlineToDokuWiki opts (Cite _ lst) = inlineListToDokuWiki opts lst
inlineToDokuWiki _ (Code _ str) =
- return $ "<code>" ++ (escapeString str) ++ "</code>"
+ return $ "''" ++ str++ "''"
inlineToDokuWiki _ (Str str) = return $ str