aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2021-09-19 09:12:55 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2021-09-19 09:12:55 -0700
commit92e0e424c059e568522b27ef438e651fe5b0a59b (patch)
treeac115c60ae9de19dc44b94c2732249b9f0ecf58c
parent5684e6a76c6e180135349b6b4b049ac89faf5deb (diff)
downloadpandoc-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.hs2
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