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

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
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Text/Pandoc/Writers/Muse.hs
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 <> "’"

2
test/Tests/Writers/Muse.hs
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