opensource/pandoc
3
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-09-24 15:44:59 +08:00
Code Issues Packages Projects Releases Wiki Activity

Muse writer: output smallcaps as emphasis

Browse Source
This commit is contained in:
Alexander Krotov
2018-03-07 19:11:27 +03:00
parent f8608b418a
commit ff8e59a174
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/Writers/Muse.hs
+1 -1
View File
@@ -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 <> "’"
test/Tests/Writers/Muse.hs
+1 -1
View File
@@ -327,7 +327,7 @@ tests = [ testGroup "block elements"
]
, "superscript" =: superscript (text "foo") =?> "<sup>foo</sup>"
, "subscript" =: subscript (text "foo") =?> "<sub>foo</sub>"
, "smallcaps" =: smallcaps (text "foo") =?> "foo"
, "smallcaps" =: smallcaps (text "foo") =?> "<em>foo</em>"
, "single quoted" =: singleQuoted (text "foo") =?> "‘foo’"
, "double quoted" =: doubleQuoted (text "foo") =?> "“foo”"
-- Cite is trivial