diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Org/Blocks.hs | 7 | ||||
| -rw-r--r-- | test/command/8204.md | 12 |
2 files changed, 17 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Org/Blocks.hs b/src/Text/Pandoc/Readers/Org/Blocks.hs index ac2af1476..fb586f67d 100644 --- a/src/Text/Pandoc/Readers/Org/Blocks.hs +++ b/src/Text/Pandoc/Readers/Org/Blocks.hs @@ -191,8 +191,11 @@ orgBlock = try $ do "quote" -> parseBlockLines (fmap B.blockQuote) "verse" -> verseBlock "src" -> codeBlock blockAttrs - "abstract"-> metadataBlock - _ -> parseBlockLines $ + _ -> + -- case-sensitive checks + case blkType of + "abstract" -> metadataBlock + _ -> parseBlockLines $ let (ident, classes, kv) = attrFromBlockAttributes blockAttrs in fmap $ B.divWith (ident, classes ++ [blkType], kv) where diff --git a/test/command/8204.md b/test/command/8204.md index 8e30e9543..a04b5dbe2 100644 --- a/test/command/8204.md +++ b/test/command/8204.md @@ -37,3 +37,15 @@ abstract: | Main text ``` + +Uppercase ABSTRACT environment is not moved to metadata. +``` +% pandoc --from=org --to=markdown --standalone +#+BEGIN_ABSTRACT +Some text. +#+END_ABSTRACT +^D +::: ABSTRACT +Some text. +::: +``` |