git.iko.soy/typeable/pandoc
on master help sign in
Jira reader: use span with class `underline` for inserted text
7df0710Albert Krewinkel
src/Text/Pandoc/Readers/Jira.hs+1−1
compare with master
unifiedsplit
@@ -140,7 +140,7 @@ jiraToPandocInlines = \case
140
140
141 fromStyle = \case
141 fromStyle = \case
142 Jira.Emphasis -> emph
142 Jira.Emphasis -> emph
143− Jira.Insert -> spanWith ("", ["inserted"], [])
143+ Jira.Insert -> spanWith ("", ["underline"], [])
144 Jira.Strikeout -> strikeout
144 Jira.Strikeout -> strikeout
145 Jira.Strong -> strong
145 Jira.Strong -> strong
146 Jira.Subscript -> subscript
146 Jira.Subscript -> subscript
test/Tests/Readers/Jira.hs+4
@@ -126,6 +126,10 @@ tests =
126 let attr = ("", [], [("align", "right"), ("vspace", "4")])
126 let attr = ("", [], [("align", "right"), ("vspace", "4")])
127 in para $ imageWith attr "image.gif" "Hello" mempty
127 in para $ imageWith attr "image.gif" "Hello" mempty
128
128
129+ , "inserted text" =:
130+ "+the new version+" =?>
131+ para (spanWith ("", ["underline"], []) "the new version")
132+
129 , "HTML entity" =:
133 , "HTML entity" =:
130 "me & you" =?> para "me & you"
134 "me & you" =?> para "me & you"
131
135