From be5cccf248bb9e0b3c6ad1db62cff770749f8e52 Mon Sep 17 00:00:00 2001
From: Albert Krewinkel <albert@zeitkraut.de>
Date: Wed, 11 May 2016 18:46:20 +0200
Subject: Org reader: parse but ignore export options

All known export options are parsed but ignored.
---
 src/Text/Pandoc/Readers/Org.hs | 37 +++++++++++++++++++++++++++++++++++--
 1 file changed, 35 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/Text/Pandoc/Readers/Org.hs b/src/Text/Pandoc/Readers/Org.hs
index ffddd0fa6..ceab1e120 100644
--- a/src/Text/Pandoc/Readers/Org.hs
+++ b/src/Text/Pandoc/Readers/Org.hs
@@ -127,11 +127,41 @@ addToNotesTable note = do
 exportSetting :: OrgParser ()
 exportSetting = choice
   [ booleanSetting "^" setExportSubSuperscripts
+  , ignoredSetting "'"
+  , ignoredSetting "*"
+  , ignoredSetting "-"
+  , ignoredSetting ":"
+  , ignoredSetting "<"
+  , ignoredSetting "\\n"
+  , ignoredSetting "arch"
+  , ignoredSetting "author"
+  , ignoredSetting "c"
+  , ignoredSetting "creator"
+  , ignoredSetting "d"
+  , ignoredSetting "date"
+  , ignoredSetting "e"
+  , ignoredSetting "email"
+  , ignoredSetting "f"
+  , ignoredSetting "H"
+  , ignoredSetting "inline"
+  , ignoredSetting "num"
+  , ignoredSetting "p"
+  , ignoredSetting "pri"
+  , ignoredSetting "prop"
+  , ignoredSetting "stat"
+  , ignoredSetting "tags"
+  , ignoredSetting "tasks"
+  , ignoredSetting "tex"
+  , ignoredSetting "timestamp"
+  , ignoredSetting "title"
+  , ignoredSetting "toc"
+  , ignoredSetting "todo"
+  , ignoredSetting "|"
   ] <?> "export setting"
 
 booleanSetting :: String -> ExportSettingSetter Bool -> OrgParser ()
-booleanSetting str setter = try $ do
-  string str
+booleanSetting settingIdentifier setter = try $ do
+  string settingIdentifier
   char ':'
   value <- many nonspaceChar
   let boolValue = case value of
@@ -140,6 +170,9 @@ booleanSetting str setter = try $ do
                     _     -> True
   updateState $ modifyExportSettings setter boolValue
 
+ignoredSetting :: String -> OrgParser ()
+ignoredSetting s = try (() <$ string s <* char ':' <* many nonspaceChar)
+
 --
 -- Parser
 --
-- 
cgit v1.2.3