diff options
| author | John MacFarlane <[email protected]> | 2022-11-19 12:44:07 -0800 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2022-11-19 12:44:07 -0800 |
| commit | 127ded4faec946164dfc4dc11c489cd2d5aaf679 (patch) | |
| tree | c5e21b8d68422cc76301e48f1b7fa9e12edcc3a7 | |
| parent | 75435381acf3a2e6f091de8afa27ba2945ae04cd (diff) | |
LaTeX reader: support more soul commands, including `\hl`.
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index cfe6d1299..1fbe9b3c8 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -349,7 +349,6 @@ inlineCommands = M.unions , ("textrm", extractSpaces (spanWith ("",["roman"],[])) <$> tok) , ("textup", extractSpaces (spanWith ("",["upright"],[])) <$> tok) , ("texttt", formatCode nullAttr <$> tok) - , ("sout", extractSpaces strikeout <$> tok) , ("alert", skipopts >> spanWith ("",["alert"],[]) <$> tok) -- beamer , ("textsuperscript", extractSpaces superscript <$> tok) , ("textsubscript", extractSpaces subscript <$> tok) @@ -423,8 +422,11 @@ inlineCommands = M.unions -- include , ("input", rawInlineOr "input" $ include "input") -- soul package + , ("st", extractSpaces strikeout <$> tok) , ("ul", underline <$> tok) + , ("hl", extractSpaces (spanWith ("",["mark"],[])) <$> tok) -- ulem package + , ("sout", extractSpaces strikeout <$> tok) , ("uline", underline <$> tok) -- plain tex stuff that should just be passed through as raw tex , ("ifdim", ifdim) |