diff options
| -rw-r--r-- | src/Text/Pandoc/Writers/Muse.hs | 4 | ||||
| -rw-r--r-- | test/Tests/Writers/Muse.hs | 8 | ||||
| -rw-r--r-- | test/writer.muse | 16 |
3 files changed, 14 insertions, 14 deletions
diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs index a1414abc5..7f53e202d 100644 --- a/src/Text/Pandoc/Writers/Muse.hs +++ b/src/Text/Pandoc/Writers/Muse.hs @@ -353,10 +353,10 @@ inlineToMuse (Subscript lst) = do inlineToMuse (SmallCaps lst) = inlineListToMuse lst inlineToMuse (Quoted SingleQuote lst) = do contents <- inlineListToMuse lst - return $ "'" <> contents <> "'" + return $ "‘" <> contents <> "’" inlineToMuse (Quoted DoubleQuote lst) = do contents <- inlineListToMuse lst - return $ "\"" <> contents <> "\"" + return $ "“" <> contents <> "”" -- Amusewiki does not support <cite> tag, -- and Emacs Muse citation support is limited -- (https://www.gnu.org/software/emacs-muse/manual/html_node/Citations.html#Citation) diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs index a7d6b76ba..13c457a37 100644 --- a/test/Tests/Writers/Muse.hs +++ b/test/Tests/Writers/Muse.hs @@ -311,8 +311,8 @@ tests = [ testGroup "block elements" , "superscript" =: superscript (text "foo") =?> "<sup>foo</sup>" , "subscript" =: subscript (text "foo") =?> "<sub>foo</sub>" , "smallcaps" =: smallcaps (text "foo") =?> "foo" - , "single quoted" =: singleQuoted (text "foo") =?> "'foo'" - , "double quoted" =: doubleQuoted (text "foo") =?> "\"foo\"" + , "single quoted" =: singleQuoted (text "foo") =?> "‘foo’" + , "double quoted" =: doubleQuoted (text "foo") =?> "“foo”" -- Cite is trivial , testGroup "code" [ "simple" =: code "foo" =?> "<code>foo</code>" @@ -370,7 +370,7 @@ tests = [ testGroup "block elements" "<em>foo</em>bar" , "emph quoted" =: para (doubleQuoted (emph (text "foo"))) =?> - "\"<em>foo</em>\"" + "“<em>foo</em>”" , "strong word before" =: para (text "foo" <> strong (text "bar")) =?> "foo<strong>bar</strong>" @@ -379,7 +379,7 @@ tests = [ testGroup "block elements" "<strong>foo</strong>bar" , "strong quoted" =: para (singleQuoted (strong (text "foo"))) =?> - "'<strong>foo</strong>'" + "‘<strong>foo</strong>’" ] ] ] diff --git a/test/writer.muse b/test/writer.muse index aed30ba4a..cd6d05432 100644 --- a/test/writer.muse +++ b/test/writer.muse @@ -492,16 +492,16 @@ spaces: a^b c^d, a~b c~d. * Smart quotes, ellipses, dashes -"Hello," said the spider. "'Shelob' is my name." +“Hello,” said the spider. “‘Shelob’ is my name.” -'A', 'B', and 'C' are letters. +‘A’, ‘B’, and ‘C’ are letters. -'Oak,' 'elm,' and 'beech' are names of trees. So is 'pine.' +‘Oak,’ ‘elm,’ and ‘beech’ are names of trees. So is ‘pine.’ -'He said, "I want to go."' Were you alive in the 70’s? +‘He said, “I want to go.”’ Were you alive in the 70’s? -Here is some quoted '<code>code</code>' and a -"[[http://example.com/?foo=1&bar=2][quoted link]]". +Here is some quoted ‘<code>code</code>’ and a +“[[http://example.com/?foo=1&bar=2][quoted link]]”. Some dashes: one—two — three—four — five. @@ -527,7 +527,7 @@ Ellipses…and…and…. These shouldn’t be math: - To get the famous equation, write <code>$e = mc^2$</code>. - - $22,000 is a <em>lot</em> of money. So is $34,000. (It worked if "lot" is + - $22,000 is a <em>lot</em> of money. So is $34,000. (It worked if “lot” is emphasized.) - Shoes ($20) and socks ($5). - Escaped <code>$</code>: $73 <em>this should be emphasized</em> 23$. @@ -679,7 +679,7 @@ or here: <http://example.com/> * Images -From "Voyage dans la Lune" by Georges Melies (1902): +From “Voyage dans la Lune” by Georges Melies (1902): [[lalune.jpg][Voyage dans la Lune]] |