diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2016-06-02 22:17:46 +0200 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2016-06-03 11:16:35 +0200 |
| commit | 952a7dac589107cc19e606ff9cf29dfbb33002bc (patch) | |
| tree | 42f414b079f2ba530ad29565dfb288128a41c1cf /src/Text/Pandoc/Readers/Org/Inlines.hs | |
| parent | 729fca311fed275a8000d2ce3789d985133c34fc (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.hs | 2 |
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) |