aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Readers/Org/Meta.hs20
1 files changed, 13 insertions, 7 deletions
diff --git a/src/Text/Pandoc/Readers/Org/Meta.hs b/src/Text/Pandoc/Readers/Org/Meta.hs
index fdb7abe7c..3e77b3f42 100644
--- a/src/Text/Pandoc/Readers/Org/Meta.hs
+++ b/src/Text/Pandoc/Readers/Org/Meta.hs
@@ -73,20 +73,26 @@ metaKey = T.toLower <$> many1Char (noneOf ": \n\r")
exportSettingHandlers :: PandocMonad m => Map Text (OrgParser m ())
exportSettingHandlers = Map.fromList
- [ ("result" , fmap pure anyLine `parseThen` discard) -- RESULT is never an export setting
- , ("author" , lineOfInlines `parseThen` collectLines "author")
- , ("keywords" , lineOfInlines `parseThen` collectLines "keywords")
- , ("date" , lineOfInlines `parseThen` setField "date")
- , ("description", lineOfInlines `parseThen` collectLines "description")
- , ("title" , lineOfInlines `parseThen` collectLines "title")
- , ("nocite" , lineOfInlines `parseThen` collectAsList "nocite")
+ [ ("result" , fmap pure anyLine `parseThen` discard)
+ -- Common settings
+ , ("author" , lineOfInlines `parseThen` collectLines "author")
+ , ("date" , lineOfInlines `parseThen` setField "date")
+ , ("description", lineOfInlines `parseThen` collectLines "description")
+ , ("keywords" , lineOfInlines `parseThen` collectLines "keywords")
+ , ("title" , lineOfInlines `parseThen` collectLines "title")
+ -- LaTeX
, ("latex_class", fmap pure anyLine `parseThen` setField "documentclass")
, ("latex_class_options", (pure . T.filter (`notElem` ("[]" :: String)) <$> anyLine)
`parseThen` setField "classoption")
, ("latex_header", metaExportSnippet "latex" `parseThen`
collectAsList "header-includes")
+ -- HTML
, ("html_head" , metaExportSnippet "html" `parseThen`
collectAsList "header-includes")
+ -- pandoc-specific
+ , ("nocite" , lineOfInlines `parseThen` collectLines "nocite")
+ , ("header-includes", lineOfInlines `parseThen` collectLines "header-includes")
+ , ("institute" , lineOfInlines `parseThen` collectLines "institute")
]
parseThen :: PandocMonad m