git.iko.soy/typeable/pandoc
on master help sign in
Dokuwiki writer: More idiomatic code for escaping.
fbf7cbfJohn MacFarlane
src/Text/Pandoc/Writers/DokuWiki.hs+4−2
compare with master
unifiedsplit
@@ -81,9 +81,11 @@ pandocToDokuWiki opts (Pandoc meta blocks) = do
81 then return $ renderTemplate' (writerTemplate opts) context
81 then return $ renderTemplate' (writerTemplate opts) context
82 else return main
82 else return main
83
83
84−-- | Escape special characters for MediaWiki.
84+-- | Escape special characters for DokuWiki.
85escapeString :: String -> String
85escapeString :: String -> String
86−escapeString str = substitute "__" "%%__%%" ( substitute "**" "%%**%%" ( substitute "//" "%%//%%" str ) )
86+escapeString = substitute "__" "%%__%%" .
87+ substitute "**" "%%**%%" .
88+ substitute "//" "%%//%%"
87
89
88-- | Convert Pandoc block element to DokuWiki.
90-- | Convert Pandoc block element to DokuWiki.
89blockToDokuWiki :: WriterOptions -- ^ Options
91blockToDokuWiki :: WriterOptions -- ^ Options