From b1561d8e470a4b9ecc681d4749093fa14cb1bd37 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Mon, 22 Jun 2020 17:55:14 -0700 Subject: Use native Underline instead of Span in Jira --- src/Text/Pandoc/Readers/Jira.hs | 2 +- src/Text/Pandoc/Writers/Jira.hs | 5 +---- 2 files changed, 2 insertions(+), 5 deletions(-) (limited to 'src') diff --git a/src/Text/Pandoc/Readers/Jira.hs b/src/Text/Pandoc/Readers/Jira.hs index fd96cbc4d..9266ce10d 100644 --- a/src/Text/Pandoc/Readers/Jira.hs +++ b/src/Text/Pandoc/Readers/Jira.hs @@ -141,7 +141,7 @@ jiraToPandocInlines = \case fromStyle = \case Jira.Emphasis -> emph - Jira.Insert -> spanWith ("", ["underline"], []) + Jira.Insert -> underline Jira.Strikeout -> strikeout Jira.Strong -> strong Jira.Subscript -> subscript diff --git a/src/Text/Pandoc/Writers/Jira.hs b/src/Text/Pandoc/Writers/Jira.hs index 29f260b5c..12348f62b 100644 --- a/src/Text/Pandoc/Writers/Jira.hs +++ b/src/Text/Pandoc/Writers/Jira.hs @@ -290,10 +290,7 @@ quotedToJira qtype xs = do spanToJira :: PandocMonad m => Attr -> [Inline] -> JiraConverter m [Jira.Inline] -spanToJira (_, classes, _) = - if "underline" `elem` classes - then styled Jira.Insert - else toJiraInlines +spanToJira (_, _classes, _) = toJiraInlines registerNotes :: PandocMonad m => [Block] -> JiraConverter m [Jira.Inline] registerNotes contents = do -- cgit v1.2.3