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

Muse writer: separate "shouldEscapeString" function

Browse source
This commit is contained in:
Alexander Krotov 2018-09-01 15:51:39 +03:00
parent 3ddb7c9d3e
commit e27ded9c38
1 changed files with 11 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
src/Text/Pandoc/Writers/Muse.hs
View file

@ -321,14 +321,19 @@ containsFootnotes = p
s (_:xs) = p xs
s [] = False
-- | Return True if string should be escaped with <verbatim> tags
shouldEscapeString :: Bool -> String -> Bool
shouldEscapeString isInsideLinkDescription s =
any (`elem` ("#*<=|" :: String)) s ||
"::" `isInfixOf` s ||
"~~" `isInfixOf` s ||
"[[" `isInfixOf` s ||
("]" `isInfixOf` s && isInsideLinkDescription) ||
containsFootnotes s
conditionalEscapeString :: Bool -> String -> String
conditionalEscapeString isInsideLinkDescription s =
if any (`elem` ("#*<=|" :: String)) s ||
"::" `isInfixOf` s ||
"~~" `isInfixOf` s ||
"[[" `isInfixOf` s ||
("]" `isInfixOf` s && isInsideLinkDescription) ||
containsFootnotes s
if shouldEscapeString isInsideLinkDescription s
then escapeString s
else s