Org template: add `#+options` lines if necessary

The default template now adds `#+options` lines if non-default settings
are used for the `smart_quotes` and `special_strings` extensions.

1 files changed, 11 insertions, 0 deletions

diff --git a/src/Text/Pandoc/Writers/Org.hs b/src/Text/Pandoc/Writers/Org.hs
index 6c05467cb..f1a516a66 100644
--- a/src/Text/Pandoc/Writers/Org.hs
+++ b/src/Text/Pandoc/Writers/Org.hs
@@ -71,6 +71,17 @@ pandocToOrg (Pandoc meta blocks) = do
   let main = body $+$ notes
   let context = defField "body" main
               . defField "math" hasMath
+              . defField "options"
+                         (M.fromList
+                          ((if isEnabled Ext_smart_quotes opts
+                            then (("'", "t"):)
+                            else id) .
+                           (if not (isEnabled Ext_special_strings opts)
+                            then (("-", "nil"):)
+                            else id)
+                           $ ([] :: [(Text, Text)])))
+              . defField "option-special-strings"
+                         (isEnabled Ext_special_strings opts)
               $ metadata
   return $ render colwidth $
     case writerTemplate opts of