diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2019-07-22 15:28:15 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2019-07-22 15:29:07 -0700 |
| commit | d9960244d8413592fc29c69780c41944c8c341be (patch) | |
| tree | 9d5f252d1253e5407c255df7f7a15f710f809d8b | |
| parent | 63c65c89da7fa54c96199cf88bf1769b7088c1ec (diff) | |
| download | pandoc-d9960244d8413592fc29c69780c41944c8c341be.tar.gz | |
LaTeX reader: support tex `\tt` command.
Closes #5654.
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 1 | ||||
| -rw-r--r-- | test/command/4669.md | 2 | ||||
| -rw-r--r-- | test/command/5654.md | 6 |
3 files changed, 8 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index fe677e470..c08cb929e 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -924,6 +924,7 @@ inlineCommands = M.union inlineLanguageCommands $ M.fromList , ("it", extractSpaces emph <$> inlines) , ("sl", extractSpaces emph <$> inlines) , ("bf", extractSpaces strong <$> inlines) + , ("tt", code . stringify . toList <$> inlines) , ("rm", inlines) , ("itshape", extractSpaces emph <$> inlines) , ("slshape", extractSpaces emph <$> inlines) diff --git a/test/command/4669.md b/test/command/4669.md index b9db45b17..0bc989516 100644 --- a/test/command/4669.md +++ b/test/command/4669.md @@ -6,7 +6,7 @@ while (n > 0) { \end{verbatim} ^D -[Para [Span ("",[],[]) [Str "<-"]] +[Para [Span ("",[],[]) [Code ("",[],[]) "<-"]]] ,CodeBlock ("",[],[]) " while (n > 0) {"] ``` diff --git a/test/command/5654.md b/test/command/5654.md new file mode 100644 index 000000000..3905dca20 --- /dev/null +++ b/test/command/5654.md @@ -0,0 +1,6 @@ +``` +% pandoc -f latex -t markdown +This is {\tt monospaced too} done. +^D +This is `monospaced too` done. +``` |