LaTeX writer: fix math inside strikeout (closes #9597).

jgm · Mar 22, 2024 · b28dc15 · b28dc15
1 parent a70399d
commit b28dc15
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 1 deletion.
diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs
@@ -868,7 +868,10 @@ inlineToLaTeX (Strikeout lst) = do
   -- incorrect results if there is a space, see #5529
   contents <- inlineListToLaTeX $ walk (concatMap protectCode) lst
   modify $ \s -> s{ stStrikeout = True }
-  return $ inCmd "st" contents
+  -- soul doesn't like \(..\) delimiters, so we change these to $ (#9597):
+  let fixMath = T.replace "\\(" "$" . T.replace "\\)" "$" .
+                T.replace "\\[" "$$" . T.replace "\\]" "$$"
+  return $ inCmd "st" $ fixMath <$> contents
 inlineToLaTeX (Superscript lst) =
   inCmd "textsuperscript" <$> inlineListToLaTeX lst
 inlineToLaTeX (Subscript lst) =

diff --git a/test/command/9597.md b/test/command/9597.md
@@ -0,0 +1,6 @@
+```
+% pandoc -t latex
+~~$T$~~
+^D
+\st{$T$}
+```