00e8d06 · typeable/pandoc

git.iko.soy/typeable/pandoc

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

Closes: tarleb/jira-wiki-markup#2

commit00e8d0678edac34af7a412642fbf7d85442b15aa authorAlbert Krewinkel <albert@zeitkraut.de> dateSat 13 Mar 2021, 14:28 (6 years ago) parenta8aa301

2 files changed+8−2

unifiedsplit

src/Text/Pandoc/Readers/Jira.hs+2−2

@@ -71,10 +71,10 @@ toPandocCodeBlocks langMay params txt =

7171 Nothing -> []

7272 in codeBlockWith ("", classes, map paramToPair params) txt

7373

74−-- | Create a pandoc @'Div'@

74+-- | Create a pandoc @'Div'@ from a panel.

7575toPandocDiv :: [Jira.Parameter] -> [Jira.Block] -> Blocks

7676toPandocDiv params =

77− divWith ("", [], map paramToPair params) . foldMap jiraToPandocBlocks

77+ divWith ("", ["panel"], map paramToPair params) . foldMap jiraToPandocBlocks

7878

7979paramToPair :: Jira.Parameter -> (Text, Text)

8080paramToPair (Jira.Parameter key value) = (key, value)

test/Tests/Readers/Jira.hs+6

@@ -96,6 +96,12 @@ tests =

9696 simpleTable [para "Name"] [[para "Test"]]

9797 ]

9898

99+ , testGroup "panel"

100+ [ "simple panel" =:

101+ "{panel}\nInterviewer: Jane Doe{panel}\n" =?>

102+ divWith ("", ["panel"], []) (para "Interviewer: Jane Doe")

103+ ]

104+

99105 , testGroup "inlines"

100106 [ "emphasis" =:

101107 "*quid pro quo*" =?>