Typst writer: escape backslash in text context.

See #245.
jgm · Jan 4, 2025 · 430f1dc · 430f1dc
1 parent e8b92aa
commit 430f1dc
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 2 deletions.
diff --git a/src/Text/TeXMath/Writers/Typst.hs b/src/Text/TeXMath/Writers/Typst.hs
@@ -84,13 +84,14 @@ esc t =
 
 escInQuotes :: Text -> Text
 escInQuotes t =
-  if T.any (== '"') t
+  if T.any needsEscape t
     then T.concatMap escapeChar t
     else t
   where
     escapeChar c
-      | c == '"' = "\\" <> T.singleton c
+      | needsEscape c = "\\" <> T.singleton c
       | otherwise = T.singleton c
+    needsEscape c = c == '\\' || c == '"'
 
 writeExpS :: Exp -> Text
 writeExpS (EGrouped es) = "(" <> writeExps es <> ")"

diff --git a/test/regression/245a.test b/test/regression/245a.test
@@ -0,0 +1,4 @@
+<<< native
+[ EText TextNormal "\\tau" ]
+>>> typst
+upright("\\tau")