diff options
| -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. +``` |