diff options
author | Albert Krewinkel <albert@zeitkraut.de> | 2016-08-29 14:42:23 +0200 |
---|---|---|
committer | Albert Krewinkel <albert@zeitkraut.de> | 2016-08-29 14:42:23 +0200 |
commit | a3a3e3fdbf4968d56f65b7865fa798e96e40daaa (patch) | |
tree | 82340ac3f8180358c27c8b68e605c599bd0feab1 /src/Text/Pandoc/Readers/Org/ExportSettings.hs | |
parent | fcbb37c8f3b28ae0889041030f37e7c730751bcd (diff) | |
parent | 88313c0b93694e310175a461ed74f497debbd57d (diff) | |
download | pandoc-a3a3e3fdbf4968d56f65b7865fa798e96e40daaa.tar.gz |
Merge branch 'org-meta-handling'
Diffstat (limited to 'src/Text/Pandoc/Readers/Org/ExportSettings.hs')
-rw-r--r-- | src/Text/Pandoc/Readers/Org/ExportSettings.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/Org/ExportSettings.hs b/src/Text/Pandoc/Readers/Org/ExportSettings.hs index b48acc9c4..283cfa998 100644 --- a/src/Text/Pandoc/Readers/Org/ExportSettings.hs +++ b/src/Text/Pandoc/Readers/Org/ExportSettings.hs @@ -54,13 +54,15 @@ exportSetting = choice , ignoredSetting "<" , ignoredSetting "\\n" , archivedTreeSetting "arch" (\val es -> es { exportArchivedTrees = val }) - , ignoredSetting "author" + , booleanSetting "author" (\val es -> es { exportWithAuthor = val }) , ignoredSetting "c" - , ignoredSetting "creator" + -- org-mode allows the special value `comment` for creator, which we'll + -- interpret as true as it doesn't make sense in the context of Pandoc. + , booleanSetting "creator" (\val es -> es { exportWithCreator = val }) , complementableListSetting "d" (\val es -> es { exportDrawers = val }) , ignoredSetting "date" , ignoredSetting "e" - , ignoredSetting "email" + , booleanSetting "email" (\val es -> es { exportWithEmail = val }) , ignoredSetting "f" , integerSetting "H" (\val es -> es { exportHeadlineLevels = val }) , ignoredSetting "inline" |