Muse writer: escape pipe

jgm · Mar 7, 2017 · cbed8d4 · cbed8d4
1 parent 41fbaa1
commit cbed8d4
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs
@@ -239,7 +239,7 @@ noteToMuse num note = do
 -- | Escape special characters for Muse.
 escapeString :: String -> String
 escapeString s =
-  if any (`elem` ("[]<>=*" :: String)) s
+  if any (`elem` ("*<=>[]|" :: String)) s
      then "<verbatim>"
         ++ substitute "</verbatim>" "<</verbatim><verbatim>/verbatim>" s
         ++ "</verbatim>"

diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs
@@ -162,6 +162,8 @@ tests = [ testGroup "block elements"
             , "escape footnote" =: str "[1]" =?> "<verbatim>[1]</verbatim>"
             , "escape verbatim close tag" =: str "foo</verbatim>bar"
                =?> "<verbatim>foo<</verbatim><verbatim>/verbatim>bar</verbatim>"
+            , "escape pipe to avoid accidental tables" =: str "foo | bar"
+               =?> "<verbatim>foo | bar</verbatim>"
             ]
           , testGroup "emphasis"
             [ "emph" =: emph (text "foo") =?> "<em>foo</em>"