diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-08-17 10:09:35 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-08-17 10:09:35 -0700 |
| commit | c175317d031985798fddac6ea7b35f44f64fd78c (patch) | |
| tree | 9d0612a2b023d32ec967d7b84a86d49cfa0b8923 /src/Text/Pandoc/Readers/LaTeX.hs | |
| parent | ae61d5f57dc8094eb40a9e83427db7fb02afcefb (diff) | |
LaTeX reader: support \textquoteleft|right, \textquotedblleft|right.
Closes #3849.
Diffstat (limited to 'src/Text/Pandoc/Readers/LaTeX.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 4 |
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 "\\") |