Markdown writer: Allow display math to start/end with space.

This reverts to earlier < 3.7 behavior.
Closes #11384.

1 files changed, 8 insertions, 8 deletions

diff --git a/src/Text/Pandoc/Writers/Markdown/Inline.hs b/src/Text/Pandoc/Writers/Markdown/Inline.hs
index b04b320ff..8279d7fcb 100644
--- a/src/Text/Pandoc/Writers/Markdown/Inline.hs
+++ b/src/Text/Pandoc/Writers/Markdown/Inline.hs
@@ -500,24 +500,24 @@ inlineToMarkdown opts (Str str) = do
                         else escapeText opts) $ str
   return $ literal str'
 inlineToMarkdown opts (Math InlineMath str) = do
+  let str' = T.strip str
   variant <- asks envVariant
   case () of
     _ | variant == Markua -> return $ "`" <> literal str <> "`" <> "$"
       | otherwise -> case writerHTMLMathMethod opts of
           WebTeX url ->
-            let str' = T.strip str
-             in inlineToMarkdown opts
+             inlineToMarkdown opts
                   (Image nullAttr [Str str'] (url <> urlEncode str', str'))
           _ | isEnabled Ext_tex_math_gfm opts ->
-                return $ "$`" <> literal str <> "`$"
+                return $ "$`" <> literal str' <> "`$"
             | isEnabled Ext_tex_math_dollars opts ->
-                return $ delimited "$" "$" (literal str)
+                return $ "$" <> literal str' <> "$"
             | isEnabled Ext_tex_math_single_backslash opts ->
-                return $ "\\(" <> literal str <> "\\)"
+                return $ "\\(" <> literal str' <> "\\)"
             | isEnabled Ext_tex_math_double_backslash opts ->
-                return $ "\\\\(" <> literal str <> "\\\\)"
+                return $ "\\\\(" <> literal str' <> "\\\\)"
             | otherwise ->
-                texMathToInlines InlineMath str >>=
+                texMathToInlines InlineMath str' >>=
                   inlineListToMarkdown opts .
                     (if variant == PlainText then makeMathPlainer else id)
 
@@ -540,7 +540,7 @@ inlineToMarkdown opts (Math DisplayMath str) = do
                              $$ literal (T.dropAround (=='\n') str)
                              $$ literal "```") <> cr
             | isEnabled Ext_tex_math_dollars opts ->
-                return $ delimited "$$" "$$" (literal str)
+                return $ "$$" <> literal str <> "$$"
             | isEnabled Ext_tex_math_single_backslash opts ->
                 return $ "\\[" <> literal str <> "\\]"
             | isEnabled Ext_tex_math_double_backslash opts ->