Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Jira reader: mark divs created from panels with class "panel".

Browse source 
Closes: tarleb/jira-wiki-markup#2
This commit is contained in:
Albert Krewinkel 2021-03-13 14:28:30 +01:00
parent a8aa301428
commit 00e8d0678e
No known key found for this signature in database
GPG key ID: 388DC0B21F631124
2 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Text/Pandoc/Readers/Jira.hs
View file

@ -71,10 +71,10 @@ toPandocCodeBlocks langMay params txt =
Nothing -> [] Nothing -> []
in codeBlockWith ("", classes, map paramToPair params) txt in codeBlockWith ("", classes, map paramToPair params) txt
-- | Create a pandoc @'Div'@ -- | Create a pandoc @'Div'@ from a panel.
toPandocDiv :: [Jira.Parameter] -> [Jira.Block] -> Blocks toPandocDiv :: [Jira.Parameter] -> [Jira.Block] -> Blocks
toPandocDiv params = toPandocDiv params =
divWith ("", [], map paramToPair params) . foldMap jiraToPandocBlocks divWith ("", ["panel"], map paramToPair params) . foldMap jiraToPandocBlocks
paramToPair :: Jira.Parameter -> (Text, Text) paramToPair :: Jira.Parameter -> (Text, Text)
paramToPair (Jira.Parameter key value) = (key, value) paramToPair (Jira.Parameter key value) = (key, value)

6
test/Tests/Readers/Jira.hs
View file

@ -96,6 +96,12 @@ tests =
simpleTable [para "Name"] [[para "Test"]] simpleTable [para "Name"] [[para "Test"]]
] ]
, testGroup "panel"
[ "simple panel" =:
"{panel}\nInterviewer: Jane Doe{panel}\n" =?>
divWith ("", ["panel"], []) (para "Interviewer: Jane Doe")
]
, testGroup "inlines" , testGroup "inlines"
[ "emphasis" =: [ "emphasis" =:
"*quid pro quo*" =?> "*quid pro quo*" =?>