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 /src/Text/Pandoc/Writers/Markdown/Inline.hs | |
| 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.
Diffstat (limited to 'src/Text/Pandoc/Writers/Markdown/Inline.hs')
| -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 |