diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Org.hs | 37 |
1 files changed, 35 insertions, 2 deletions
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 -- |