@@ -31,7 +31,6 @@ DokuWiki: <https://www.dokuwiki.org/dokuwiki>
3131-}
3232
3333{-
34− [ ] Don't convert & to &
3534 [ ] Don't generate <blockquote>...
3635 [ ] Don't generate <pre>...
3736 [ ] Implement definition lists
@@ -51,7 +50,7 @@ import Text.Pandoc.Options
5150import Text.Pandoc.Shared
5251import Text.Pandoc.Writers.Shared
5352import Text.Pandoc.Templates (renderTemplate')
54−import Text.Pandoc.XML ( escapeStringForXML )
53+import Text.Pandoc.XML ( escapeStringForXML ) -- TODO Remove this line
5554import Data.List ( intersect, intercalate )
5655import Network.URI ( isURI )
5756import Control.Monad.State
@@ -89,7 +88,7 @@ pandocToDokuWiki opts (Pandoc meta blocks) = do
8988 else return main
9089
9190-- | Escape special characters for DokuWiki.
92−escapeString :: String -> String
91+escapeString :: String -> String -- TODO Remove this
9392escapeString = escapeStringForXML
9493
9594-- | Convert Pandoc block element to DokuWiki.
@@ -404,7 +403,7 @@ inlineToDokuWiki opts (Cite _ lst) = inlineListToDokuWiki opts lst
404403inlineToDokuWiki _ (Code _ str) =
405404 return $ "<code>" ++ (escapeString str) ++ "</code>"
406405
407−inlineToDokuWiki _ (Str str) = return $ escapeString str
406+inlineToDokuWiki _ (Str str) = return $ str
408407
409408inlineToDokuWiki _ (Math _ str) = return $ "<math>" ++ str ++ "</math>"
410409 -- note: str should NOT be escaped