From 0961d499121e20473dfc02cfd1d7282f89436700 Mon Sep 17 00:00:00 2001
From: claremacrae <github@cfmacrae.fastmail.co.uk>
Date: Sat, 17 Aug 2013 12:34:05 +0100
Subject: Fixed inlined code in dokuwiki writer (#386)

---
 src/Text/Pandoc/Writers/DokuWiki.hs | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

(limited to 'src/Text')

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
 
-- 
cgit v1.2.3