From 9131d62c9b9a70829e0d938d0d201a09b2cec179 Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Wed, 14 Feb 2018 13:49:56 +0300 Subject: Muse writer: use unicode quotes for quoted text --- src/Text/Pandoc/Writers/Muse.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Text') 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 tag, -- and Emacs Muse citation support is limited -- (https://www.gnu.org/software/emacs-muse/manual/html_node/Citations.html#Citation) -- cgit v1.2.3