git.iko.soy/typeable/pandoc
on master help sign in
Muse writer: output smallcaps as emphasis
commitff8e59a17412e7a083ab5ce53a1af2db59025a44 authorAlexander Krotov <ilabdsf@gmail.com> dateWed 7 Mar 2018, 19:11 (9 years ago) parentf8608b4
2 files changed+2−2
compare with master
unifiedsplit
src/Text/Pandoc/Writers/Muse.hs+1−1 test/Tests/Writers/Muse.hs+1−1
src/Text/Pandoc/Writers/Muse.hs+1−1
@@ -369,7 +369,7 @@ inlineToMuse (Superscript lst) = do
369369inlineToMuse (Subscript lst) = do
370370 contents <- inlineListToMuse lst
371371 return $ "<sub>" <> contents <> "</sub>"
372−inlineToMuse (SmallCaps lst) = inlineListToMuse lst
372+inlineToMuse (SmallCaps lst) = inlineToMuse (Emph lst)
373373inlineToMuse (Quoted SingleQuote lst) = do
374374 contents <- inlineListToMuse lst
375375 return $ "‘" <> contents <> "’"
test/Tests/Writers/Muse.hs+1−1
@@ -327,7 +327,7 @@ tests = [ testGroup "block elements"
327327 ]
328328 , "superscript" =: superscript (text "foo") =?> "<sup>foo</sup>"
329329 , "subscript" =: subscript (text "foo") =?> "<sub>foo</sub>"
330− , "smallcaps" =: smallcaps (text "foo") =?> "foo"
330+ , "smallcaps" =: smallcaps (text "foo") =?> "<em>foo</em>"
331331 , "single quoted" =: singleQuoted (text "foo") =?> "‘foo’"
332332 , "double quoted" =: doubleQuoted (text "foo") =?> "“foo”"
333333 -- Cite is trivial