diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-02-14 13:49:56 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-02-15 14:33:25 +0300 |
| commit | 9131d62c9b9a70829e0d938d0d201a09b2cec179 (patch) | |
| tree | 1197d336d255ad663e29d124a7736d56516720f9 /src/Text/Pandoc/Writers | |
| parent | 6dcb9744237be713f4ef94017a6b68fc0cfddb73 (diff) | |
Muse writer: use unicode quotes for quoted text
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/Muse.hs | 4 |
1 files changed, 2 insertions, 2 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) |