diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-03-07 16:27:56 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-03-07 18:35:04 +0300 |
| commit | f8e255053de09786c6c251e38387663750ddd3ac (patch) | |
| tree | 4dec6a950d96a9002a1f396ebe9dcc981ef54a23 | |
| parent | 39b31ef3cb6f227bc17f923cc00597ca70298820 (diff) | |
| download | pandoc-f8e255053de09786c6c251e38387663750ddd3ac.tar.gz | |
Muse writer: write empty inline lists as <verbatim></verbatim>
| -rw-r--r-- | src/Text/Pandoc/Writers/Muse.hs | 6 | ||||
| -rw-r--r-- | test/Tests/Writers/Muse.hs | 9 |
2 files changed, 13 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs index 6cdd3e182..7a9bc8130 100644 --- a/src/Text/Pandoc/Writers/Muse.hs +++ b/src/Text/Pandoc/Writers/Muse.hs @@ -339,8 +339,10 @@ inlineListToMuse :: PandocMonad m => [Inline] -> StateT WriterState m Doc inlineListToMuse lst = do - lst' <- preprocessInlineList lst - hcat <$> mapM inlineToMuse (fixNotes $ normalizeInlineList lst') + lst' <- normalizeInlineList <$> preprocessInlineList lst + if null lst' + then pure "<verbatim></verbatim>" + else hcat <$> mapM inlineToMuse (fixNotes lst') -- | Convert Pandoc inline element to Muse. inlineToMuse :: PandocMonad m diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs index ab5eaa205..68eb9759f 100644 --- a/test/Tests/Writers/Muse.hs +++ b/test/Tests/Writers/Muse.hs @@ -101,6 +101,15 @@ tests = [ testGroup "block elements" , " :: second description" , " second definition :: third description" ] + , "definition list with empty term" =: + definitionList [ (text "first definition", [plain $ text "first description"]) + , (mempty, [plain $ text "second description"]) + , (str "", [plain $ text "third description"]) + ] + =?> unlines [ " first definition :: first description" + , " <verbatim></verbatim> :: second description" + , " <verbatim></verbatim> :: third description" + ] ] -- Test that lists of the same type and style are separated with two blanklines , testGroup "sequential lists" |