From 03ddac451edcd6eb8dfa1a77b174fd146aa5e722 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 29 Nov 2017 21:30:13 -0800
Subject: [PATCH] Support beamer `\alert` in LaTeX reader. Closes #4091.
---
src/Text/Pandoc/Readers/LaTeX.hs | 1 +
test/command/4091.md | 6 ++++++
2 files changed, 7 insertions(+)
create mode 100644 test/command/4091.md
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>
+```