diff options
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Readers/Jira.hs | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Jira.hs b/src/Text/Pandoc/Readers/Jira.hs index 4eb637895..7a58c7643 100644 --- a/src/Text/Pandoc/Readers/Jira.hs +++ b/src/Text/Pandoc/Readers/Jira.hs @@ -12,6 +12,7 @@ Conversion of jira wiki formatted plain text to 'Pandoc' document. module Text.Pandoc.Readers.Jira ( readJira ) where import Control.Monad.Except (throwError) +import Data.List (partition) import Data.Text (Text, append, pack, singleton) import Text.Pandoc.XML (lookupEntity) import Text.Jira.Parser (parse) @@ -76,7 +77,16 @@ toPandocCodeBlocks langMay params txt = -- | Create a pandoc @'Div'@ from a panel. toPandocDiv :: [Jira.Parameter] -> [Jira.Block] -> Blocks toPandocDiv params = - divWith ("", ["panel"], map paramToPair params) . foldMap jiraToPandocBlocks + let (titles, params') = partition ((== "title") . Jira.parameterKey) params + addTitle = case titles of + [] -> + id + (title:_) -> \blks -> + (divWith ("", ["panelheader"], []) . plain . strong $ + text (Jira.parameterValue title)) <> blks + in divWith ("", ["panel"], map paramToPair params') + . addTitle + . foldMap jiraToPandocBlocks paramToPair :: Jira.Parameter -> (Text, Text) paramToPair (Jira.Parameter key value) = (key, value) |