diff options
author | John MacFarlane <jgm@berkeley.edu> | 2021-09-19 09:12:55 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2021-09-19 09:12:55 -0700 |
commit | 92e0e424c059e568522b27ef438e651fe5b0a59b (patch) | |
tree | ac115c60ae9de19dc44b94c2732249b9f0ecf58c | |
parent | 5684e6a76c6e180135349b6b4b049ac89faf5deb (diff) | |
download | pandoc-92e0e424c059e568522b27ef438e651fe5b0a59b.tar.gz |
Markdown writer: use `underline` class rather than `ul` for underline.
This only affects output with bracketed_spans enabled.
The markdown reader parses spans with either `.ul` or `.underline` as
Underline elements, but we're moving towards preferring the latter.
-rw-r--r-- | src/Text/Pandoc/Writers/Markdown/Inline.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown/Inline.hs b/src/Text/Pandoc/Writers/Markdown/Inline.hs index f7a320db3..31c816e36 100644 --- a/src/Text/Pandoc/Writers/Markdown/Inline.hs +++ b/src/Text/Pandoc/Writers/Markdown/Inline.hs @@ -307,7 +307,7 @@ inlineToMarkdown opts (Underline lst) = do case variant of PlainText -> return contents _ | isEnabled Ext_bracketed_spans opts -> - return $ "[" <> contents <> "]" <> "{.ul}" + return $ "[" <> contents <> "]" <> "{.underline}" | isEnabled Ext_native_spans opts -> return $ tagWithAttrs "span" ("", ["underline"], []) <> contents |