diff options
| author | dbecher-ito <david.becher@it-objects.de> | 2020-06-14 19:02:17 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-06-14 10:02:17 -0700 |
| commit | a0559d952bc36ed5ed0693fcde15e6bd59dcf5e7 (patch) | |
| tree | 566264944939829a6b1a531f66df566b641cd4d2 /src/Text | |
| parent | 16889a01b95a1b897abdfa2da191c1338f0333b2 (diff) | |
| download | pandoc-a0559d952bc36ed5ed0693fcde15e6bd59dcf5e7.tar.gz | |
Distinguish between single and double quotes when using enquote package (#6457)
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Writers/LaTeX.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs index 0c73918d3..2e116191e 100644 --- a/src/Text/Pandoc/Writers/LaTeX.hs +++ b/src/Text/Pandoc/Writers/LaTeX.hs @@ -1234,7 +1234,9 @@ inlineToLaTeX (Quoted qt lst) = do csquotes <- liftM stCsquotes get opts <- gets stOptions if csquotes - then return $ "\\enquote" <> braces contents + then return $ case qt of + DoubleQuote -> "\\enquote" <> braces contents + SingleQuote -> "\\enquote*" <> braces contents else do let s1 = if not (null lst) && isQuoted (head lst) then "\\," |