diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2020-06-28 18:23:25 +0200 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2020-06-28 19:25:57 +0200 |
| commit | d2d5eb8a993553eb5d1b9b9ca7863638864dde7e (patch) | |
| tree | f824195d8fed3454ab94a9158176e86dd5f438c0 /src | |
| parent | b7a8620b43b8e73ef3be42f607dd7f46e9027634 (diff) | |
| download | pandoc-d2d5eb8a993553eb5d1b9b9ca7863638864dde7e.tar.gz | |
Org reader: read `#+INSTITUTE` values as text with markup
The value is stored in the `institute` metadata field and used in the
default beamer presentation template.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/Org/Meta.hs | 20 |
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 |