Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Dokuwiki writer: More idiomatic code for escaping.

Browse source
This commit is contained in:
John MacFarlane 2014-07-13 15:32:16 -07:00
parent 798c57d9b2
commit fbf7cbfdc8
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Text/Pandoc/Writers/DokuWiki.hs
View file

@ -81,9 +81,11 @@ pandocToDokuWiki opts (Pandoc meta blocks) = do
then return $ renderTemplate' (writerTemplate opts) context then return $ renderTemplate' (writerTemplate opts) context
else return main else return main
-- | Escape special characters for MediaWiki. -- | Escape special characters for DokuWiki.
escapeString :: String -> String escapeString :: String -> String
escapeString str = substitute "__" "%%__%%" ( substitute "**" "%%**%%" ( substitute "//" "%%//%%" str ) ) escapeString = substitute "__" "%%__%%" .
substitute "**" "%%**%%" .
substitute "//" "%%//%%"
-- | Convert Pandoc block element to DokuWiki. -- | Convert Pandoc block element to DokuWiki.
blockToDokuWiki :: WriterOptions -- ^ Options blockToDokuWiki :: WriterOptions -- ^ Options