diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-03-07 19:11:27 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-03-07 19:11:27 +0300 |
| commit | ff8e59a17412e7a083ab5ce53a1af2db59025a44 (patch) | |
| tree | 2ef21e718e3bd62f12066ba576c8b50a023b5a47 /src/Text/Pandoc | |
| parent | f8608b418afcb1cfe8ccb55abf31f33f7bc7efb3 (diff) | |
| download | pandoc-ff8e59a17412e7a083ab5ce53a1af2db59025a44.tar.gz | |
Muse writer: output smallcaps as emphasis
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Writers/Muse.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs index 156958ab7..28cfb0ef4 100644 --- a/src/Text/Pandoc/Writers/Muse.hs +++ b/src/Text/Pandoc/Writers/Muse.hs @@ -369,7 +369,7 @@ inlineToMuse (Superscript lst) = do inlineToMuse (Subscript lst) = do contents <- inlineListToMuse lst return $ "<sub>" <> contents <> "</sub>" -inlineToMuse (SmallCaps lst) = inlineListToMuse lst +inlineToMuse (SmallCaps lst) = inlineToMuse (Emph lst) inlineToMuse (Quoted SingleQuote lst) = do contents <- inlineListToMuse lst return $ "‘" <> contents <> "’" |