diff options
| author | Albert Krewinkel <[email protected]> | 2023-04-01 17:38:46 +0200 |
|---|---|---|
| committer | Albert Krewinkel <[email protected]> | 2023-04-01 17:46:08 +0200 |
| commit | ef16a88cdec6e7fb48142ae74ef3811e4fe749a7 (patch) | |
| tree | 10d4e5c213dedeb38b5bcc14bf6a65aded88fe83 /src | |
| parent | 509cb9b8feae6798cb77bc35637297e9301d682e (diff) | |
Org reader: require abstract environment to use lowercase
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/Org/Blocks.hs | 7 |
1 files changed, 5 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 |