@@ -87,7 +87,7 @@ pandocToDokuWiki opts (Pandoc meta blocks) = do
88-- | Escape special characters for MediaWiki.
88-- | Escape special characters for MediaWiki.
89escapeString :: String -> String
89escapeString :: String -> String
90−escapeString str = substitute "//" "%%//%%" str
90+escapeString str = substitute "__" "%%__%%" ( substitute "**" "%%**%%" ( substitute "//" "%%//%%" str ) )
92-- | Convert Pandoc block element to DokuWiki.
92-- | Convert Pandoc block element to DokuWiki.
93blockToDokuWiki :: WriterOptions -- ^ Options
93blockToDokuWiki :: WriterOptions -- ^ Options