summaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers/Org/Inlines.hs
diff options
context:
space:
mode:
authorAlbert Krewinkel <albert@zeitkraut.de>2016-06-02 22:17:46 +0200
committerAlbert Krewinkel <albert@zeitkraut.de>2016-06-03 11:16:35 +0200
commit952a7dac589107cc19e606ff9cf29dfbb33002bc (patch)
tree42f414b079f2ba530ad29565dfb288128a41c1cf /src/Text/Pandoc/Readers/Org/Inlines.hs
parent729fca311fed275a8000d2ce3789d985133c34fc (diff)
Org reader: support smart quotes export option
Reading of smart quotes can be toggled using the `'` option.
Diffstat (limited to 'src/Text/Pandoc/Readers/Org/Inlines.hs')
-rw-r--r--src/Text/Pandoc/Readers/Org/Inlines.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/Org/Inlines.hs b/src/Text/Pandoc/Readers/Org/Inlines.hs
index be7fc600a..80a94f1b3 100644
--- a/src/Text/Pandoc/Readers/Org/Inlines.hs
+++ b/src/Text/Pandoc/Readers/Org/Inlines.hs
@@ -730,6 +730,7 @@ smart = do
singleQuoted :: OrgParser (F Inlines)
singleQuoted = try $ do
+ guard . exportSmartQuotes . orgStateExportSettings =<< getState
singleQuoteStart
updatePositions '\''
withQuoteContext InSingleQuote $
@@ -741,6 +742,7 @@ singleQuoted = try $ do
-- in the same paragraph.
doubleQuoted :: OrgParser (F Inlines)
doubleQuoted = try $ do
+ guard . exportSmartQuotes . orgStateExportSettings =<< getState
doubleQuoteStart
updatePositions '"'
contents <- mconcat <$> many (try $ notFollowedBy doubleQuoteEnd >> inline)