aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2017-08-17 10:09:35 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2017-08-17 10:09:35 -0700
commitc175317d031985798fddac6ea7b35f44f64fd78c (patch)
tree9d0612a2b023d32ec967d7b84a86d49cfa0b8923 /src/Text/Pandoc
parentae61d5f57dc8094eb40a9e83427db7fb02afcefb (diff)
downloadpandoc-c175317d031985798fddac6ea7b35f44f64fd78c.tar.gz
LaTeX reader: support \textquoteleft|right, \textquotedblleft|right.
Closes #3849.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Readers/LaTeX.hs4
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs
index de2b8f913..bab056c83 100644
--- a/src/Text/Pandoc/Readers/LaTeX.hs
+++ b/src/Text/Pandoc/Readers/LaTeX.hs
@@ -1209,6 +1209,10 @@ inlineCommands = M.fromList $
, ("textup", extractSpaces (spanWith ("",["upright"],[])) <$> tok)
, ("texttt", ttfamily)
, ("sout", extractSpaces strikeout <$> tok)
+ , ("textquoteleft", return (str "‘"))
+ , ("textquoteright", return (str "’"))
+ , ("textquotedblleft", return (str "“"))
+ , ("textquotedblright", return (str "”"))
, ("textsuperscript", extractSpaces superscript <$> tok)
, ("textsubscript", extractSpaces subscript <$> tok)
, ("textbackslash", lit "\\")