@@ -127,11 +127,41 @@ addToNotesTable note = do
127127exportSetting :: OrgParser ()
128128exportSetting = choice
129129 [ booleanSetting "^" setExportSubSuperscripts
130+ , ignoredSetting "'"
131+ , ignoredSetting "*"
132+ , ignoredSetting "-"
133+ , ignoredSetting ":"
134+ , ignoredSetting "<"
135+ , ignoredSetting "\\n"
136+ , ignoredSetting "arch"
137+ , ignoredSetting "author"
138+ , ignoredSetting "c"
139+ , ignoredSetting "creator"
140+ , ignoredSetting "d"
141+ , ignoredSetting "date"
142+ , ignoredSetting "e"
143+ , ignoredSetting "email"
144+ , ignoredSetting "f"
145+ , ignoredSetting "H"
146+ , ignoredSetting "inline"
147+ , ignoredSetting "num"
148+ , ignoredSetting "p"
149+ , ignoredSetting "pri"
150+ , ignoredSetting "prop"
151+ , ignoredSetting "stat"
152+ , ignoredSetting "tags"
153+ , ignoredSetting "tasks"
154+ , ignoredSetting "tex"
155+ , ignoredSetting "timestamp"
156+ , ignoredSetting "title"
157+ , ignoredSetting "toc"
158+ , ignoredSetting "todo"
159+ , ignoredSetting "|"
130160 ] <?> "export setting"
131161
132162booleanSetting :: String -> ExportSettingSetter Bool -> OrgParser ()
133−booleanSetting str setter = try $ do
134− string str
163+booleanSetting settingIdentifier setter = try $ do
164+ string settingIdentifier
135165 char ':'
136166 value <- many nonspaceChar
137167 let boolValue = case value of
@@ -140,6 +170,9 @@ booleanSetting str setter = try $ do
140170 _ -> True
141171 updateState $ modifyExportSettings setter boolValue
142172
173+ignoredSetting :: String -> OrgParser ()
174+ignoredSetting s = try (() <$ string s <* char ':' <* many nonspaceChar)
175+
143176--
144177-- Parser
145178--