aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Text/Pandoc/Writers/Muse.hs4
-rw-r--r--test/Tests/Writers/Muse.hs8
-rw-r--r--test/writer.muse16
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]]