From f7ebd5107dde7e22f1a2829f19ee72d7ffa9d14c Mon Sep 17 00:00:00 2001
From: Paul Tilley <t1000.pixlark@gmail.com>
Date: Sun, 10 Mar 2019 15:31:25 -0400
Subject: LaTeX reader: support `\underline`, `\ul`, `\uline` (#5359)
These are parsed as a Span with class `underline`, as with other readers.
---
src/Text/Pandoc/Readers/LaTeX.hs | 5 +++++
1 file changed, 5 insertions(+)
(limited to 'src/Text')
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)
]
--
cgit v1.2.3