diff options
author | Albert Krewinkel <albert@zeitkraut.de> | 2020-06-29 17:00:24 +0200 |
---|---|---|
committer | Albert Krewinkel <albert@zeitkraut.de> | 2020-06-29 17:04:29 +0200 |
commit | 1480606174260657e27a0f02f8f44f1fca14b005 (patch) | |
tree | 319f1bb37326a3fa9b3506be5b9d49c0bacfd2c2 /src/Text/Pandoc/Readers/Org | |
parent | d17b257c89624ceea6bd319caa22aa25e95fb5e9 (diff) | |
download | pandoc-1480606174260657e27a0f02f8f44f1fca14b005.tar.gz |
Org reader: support LATEX_HEADER_EXTRA and HTML_HEAD_EXTRA settings
These export settings are treated like their non-extra counterparts,
i.e., the values are added to the `header-includes` metadata list.
Diffstat (limited to 'src/Text/Pandoc/Readers/Org')
-rw-r--r-- | src/Text/Pandoc/Readers/Org/Meta.hs | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/src/Text/Pandoc/Readers/Org/Meta.hs b/src/Text/Pandoc/Readers/Org/Meta.hs index c922403df..ae323f189 100644 --- a/src/Text/Pandoc/Readers/Org/Meta.hs +++ b/src/Text/Pandoc/Readers/Org/Meta.hs @@ -82,14 +82,18 @@ exportSettingHandlers = Map.fromList , ("subtitle" , lineOfInlines `parseThen` collectLines "subtitle") , ("title" , lineOfInlines `parseThen` collectLines "title") -- LaTeX - , ("latex_class", fmap pure anyLine `parseThen` setField "documentclass") + , ("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") + , ("latex_header" , metaExportSnippet "latex" `parseThen` + collectAsList "header-includes") + , ("latex_header_extra", metaExportSnippet "latex" `parseThen` + collectAsList "header-includes") -- HTML - , ("html_head" , metaExportSnippet "html" `parseThen` - collectAsList "header-includes") + , ("html_head" , metaExportSnippet "html" `parseThen` + collectAsList "header-includes") + , ("html_head_extra", metaExportSnippet "html" `parseThen` + collectAsList "header-includes") -- pandoc-specific , ("nocite" , lineOfInlines `parseThen` collectLines "nocite") , ("header-includes", lineOfInlines `parseThen` collectLines "header-includes") |