aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2017-03-07 14:57:11 +0100
committerJohn MacFarlane <jgm@berkeley.edu>2017-03-07 15:00:32 +0100
commit8c55b7b5640e41feaae658e95e659bdd2101a340 (patch)
treedd6b64f99e413bec7823a88d4131ed835fed7e16 /src/Text/Pandoc
parent69e1b959e001f1ce23b7dbfda4401c82a70922ac (diff)
downloadpandoc-8c55b7b5640e41feaae658e95e659bdd2101a340.tar.gz
Markdown reader: Treat certain environments as inline
when they occur without space surrounding them. E.g. equation, math. This avoids incorrect vertical space around equations. Closes #3309. Closes #2171. See also rstudio/bookdown#358.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Readers/LaTeX.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs
index c5f5df6dc..60113173d 100644
--- a/src/Text/Pandoc/Readers/LaTeX.hs
+++ b/src/Text/Pandoc/Readers/LaTeX.hs
@@ -1063,7 +1063,9 @@ rawLaTeXBlock = snd <$> try (withRaw (environment <|> blockCommand))
rawLaTeXInline :: PandocMonad m => LP m Inline
rawLaTeXInline = do
- raw <- (snd <$> withRaw inlineCommand) <|> (snd <$> withRaw blockCommand)
+ raw <- (snd <$> withRaw inlineCommand)
+ <|> (snd <$> withRaw inlineEnvironment)
+ <|> (snd <$> withRaw blockCommand)
RawInline "latex" <$> applyMacros' raw
addImageCaption :: PandocMonad m => Blocks -> LP m Blocks