aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPaul Tilley <t1000.pixlark@gmail.com>2019-03-10 15:31:25 -0400
committerJohn MacFarlane <jgm@berkeley.edu>2019-03-10 13:31:25 -0600
commitf7ebd5107dde7e22f1a2829f19ee72d7ffa9d14c (patch)
treeff0dfc47cc6a8249e7dfb075ff91040b08145bd1
parent73c5b5004253899fde8d022e95f3ec272c453934 (diff)
downloadpandoc-f7ebd5107dde7e22f1a2829f19ee72d7ffa9d14c.tar.gz
LaTeX reader: support `\underline`, `\ul`, `\uline` (#5359)
These are parsed as a Span with class `underline`, as with other readers.
-rw-r--r--src/Text/Pandoc/Readers/LaTeX.hs5
1 files changed, 5 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs
index 675e3965b..abc137fd1 100644
--- a/src/Text/Pandoc/Readers/LaTeX.hs
+++ b/src/Text/Pandoc/Readers/LaTeX.hs
@@ -866,6 +866,7 @@ inlineCommands = M.union inlineLanguageCommands $ M.fromList
, ("slash", lit "/")
, ("textbf", extractSpaces strong <$> tok)
, ("textnormal", extractSpaces (spanWith ("",["nodecor"],[])) <$> tok)
+ , ("underline", underlineSpan <$> tok)
, ("ldots", lit "…")
, ("vdots", lit "\8942")
, ("dots", lit "…")
@@ -1122,6 +1123,10 @@ inlineCommands = M.union inlineLanguageCommands $ M.fromList
, ("foreignlanguage", foreignlanguage)
-- include
, ("input", include "input")
+ -- soul package
+ , ("ul", underlineSpan <$> tok)
+ -- ulem package
+ , ("uline", underlineSpan <$> tok)
-- plain tex stuff that should just be passed through as raw tex
, ("ifdim", ifdim)
]