diff options
author | Paul Tilley <t1000.pixlark@gmail.com> | 2019-03-10 15:31:25 -0400 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2019-03-10 13:31:25 -0600 |
commit | f7ebd5107dde7e22f1a2829f19ee72d7ffa9d14c (patch) | |
tree | ff0dfc47cc6a8249e7dfb075ff91040b08145bd1 | |
parent | 73c5b5004253899fde8d022e95f3ec272c453934 (diff) | |
download | pandoc-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.hs | 5 |
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) ] |