diff options
| author | John MacFarlane <[email protected]> | 2025-12-10 23:55:08 +0100 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2025-12-10 23:55:08 +0100 |
| commit | a6fae6b78018f2d7998eb7c9432c2d00400f209b (patch) | |
| tree | 68ade79a0a2aeee3410909d6ad28a291714b812b /src/Text | |
| parent | b6339f9baadfca351a890ff399d7bf3eb4c0f075 (diff) | |
Org: don't include 'example' class when parsing org example blocks.
These are just unmarked code blocks.
Closes #11339.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Readers/Org/Blocks.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Org/Blocks.hs b/src/Text/Pandoc/Readers/Org/Blocks.hs index e95874ca8..9c9123a47 100644 --- a/src/Text/Pandoc/Readers/Org/Blocks.hs +++ b/src/Text/Pandoc/Readers/Org/Blocks.hs @@ -231,7 +231,7 @@ exampleBlock blockAttrs _label = do newline content <- rawBlockContent "example" let id' = fromMaybe mempty $ blockAttrName blockAttrs - let codeBlck = B.codeBlockWith (id', "example":classes, kv) content + let codeBlck = B.codeBlockWith (id', classes, kv) content return . return $ codeBlck rawBlockLines :: Monad m => (Text -> F Blocks) -> Text -> OrgParser m (F Blocks) @@ -558,7 +558,7 @@ example = try $ returnF . exampleCode . T.unlines =<< many1 exampleLine exampleLine = try $ exampleLineStart *> anyLine exampleCode :: Text -> Blocks -exampleCode = B.codeBlockWith ("", ["example"], []) +exampleCode = B.codeBlockWith ("", [], []) -- |