opensource/pandoc
3
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-09-19 02:22:09 +08:00
Code Issues Packages Projects Releases Wiki Activity

Muse writer: escape nonbreaking space ("~~")

Browse Source
This commit is contained in:
Alexander Krotov
2018-01-29 12:54:43 +03:00
parent 37271fabee
commit b7d8930dc0
2 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/Writers/Muse.hs
+2 -1
View File
@@ -290,7 +290,8 @@ conditionalEscapeString :: String -> String
conditionalEscapeString s =
if any (`elem` ("#*<=>[]|" :: String)) s ||
"::" `isInfixOf` s ||
"----" `isInfixOf` s
"----" `isInfixOf` s ||
"~~" `isInfixOf` s
then escapeString s
else s
test/Tests/Writers/Muse.hs
+1
View File
@@ -251,6 +251,7 @@ tests = [ testGroup "block elements"
]
, "horizontal rule" =: horizontalRule =?> "----"
, "escape horizontal rule" =: para (text "----") =?> "<verbatim>----</verbatim>"
, "escape nonbreaking space" =: para (text "~~") =?> "<verbatim>~~</verbatim>"
, testGroup "tables"
[ "table without header" =:
let rows = [[para $ text "Para 1.1", para $ text "Para 1.2"]