(#817) remove orgmode characters instead of escaping them

Author: rexim

src/OrgMode.hs

@@ -17,9 +17,4 @@ renderTable header rows =
     renderRow columns =
       "|" <> T.concat (intersperse "|" $ map escapeColumn columns) <> "|"
     escapeColumn :: T.Text -> T.Text
-    escapeColumn =
-      T.concatMap
-        (\x ->
-           if x `elem` charEscapeList
-             then T.pack ['\\', x]
-             else T.singleton x)
+    escapeColumn = T.filter $ not . (`elem` charEscapeList)

test/OrgModeTest.hs

@@ -18,7 +18,7 @@ spec =
      \|1|||\n\
      \||||\n\
      \|1|2|3|\n\
-     \|\\|~|||\n") $
+     \|~|||\n") $
   renderTable
     ["hello", "world", "foo"]
     [ ["1", "2", "3"]