diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2021-03-01 14:14:58 +0100 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2021-03-01 14:36:11 +0100 |
| commit | e1454fe0d0e2f1cb4e9c5753f095a1f0a8580ffe (patch) | |
| tree | b4d837f66e53b8b1684f2cc824cfe76c067fac91 /src/Text/Pandoc/Writers | |
| parent | 3793ed8beb5da0a8afbe8d3b121c2a1cd5bece44 (diff) | |
| download | pandoc-e1454fe0d0e2f1cb4e9c5753f095a1f0a8580ffe.tar.gz | |
Jira writer: use Span identifiers as anchors
Closes: tarleb/jira-wiki-markup#3.
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/Jira.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Jira.hs b/src/Text/Pandoc/Writers/Jira.hs index c21085a4f..131896201 100644 --- a/src/Text/Pandoc/Writers/Jira.hs +++ b/src/Text/Pandoc/Writers/Jira.hs @@ -292,7 +292,9 @@ quotedToJira qtype xs = do spanToJira :: PandocMonad m => Attr -> [Inline] -> JiraConverter m [Jira.Inline] -spanToJira (_, _classes, _) = toJiraInlines +spanToJira (ident, _classes, _attribs) inls = case ident of + "" -> toJiraInlines inls + _ -> (Jira.Anchor ident :) <$> toJiraInlines inls registerNotes :: PandocMonad m => [Block] -> JiraConverter m [Jira.Inline] registerNotes contents = do |