diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-11-29 21:30:13 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-11-29 21:30:13 -0800 |
| commit | 03ddac451edcd6eb8dfa1a77b174fd146aa5e722 (patch) | |
| tree | 8ff61b655e1a0419149b9dd1d2e32bdd452d69e9 | |
| parent | c65b514ed1a447f32ae3bf1dde64164deccdda51 (diff) | |
| download | pandoc-03ddac451edcd6eb8dfa1a77b174fd146aa5e722.tar.gz | |
Support beamer `\alert` in LaTeX reader. Closes #4091.
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 1 | ||||
| -rw-r--r-- | test/command/4091.md | 6 |
2 files changed, 7 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index 3bc59f262..d1d9682c3 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -1245,6 +1245,7 @@ inlineCommands = M.union inlineLanguageCommands $ M.fromList $ , ("textup", extractSpaces (spanWith ("",["upright"],[])) <$> tok) , ("texttt", ttfamily) , ("sout", extractSpaces strikeout <$> tok) + , ("alert", skipangles >> spanWith ("",["alert"],[]) <$> tok) -- beamer , ("lq", return (str "‘")) , ("rq", return (str "’")) , ("textquoteleft", return (str "‘")) diff --git a/test/command/4091.md b/test/command/4091.md new file mode 100644 index 000000000..13f3323d1 --- /dev/null +++ b/test/command/4091.md @@ -0,0 +1,6 @@ +``` +% pandoc -f latex +\alert<3>{foo} +^D +<p><span class="alert">foo</span></p> +``` |