RST reader: Support ".. code::".
This commit is contained in:
parent
58909aaf21
commit
2fbdf9e002
1 changed files with 5 additions and 1 deletions
|
@ -366,7 +366,11 @@ codeBlockBody = try $ B.codeBlock . stripTrailingNewlines <$> indentedBlock
|
|||
-- specified.
|
||||
customCodeBlock :: Parser [Char] st Blocks
|
||||
customCodeBlock = try $ do
|
||||
string ".. code-block:: "
|
||||
string ".. "
|
||||
string "code"
|
||||
optional $ string "-block"
|
||||
string "::"
|
||||
skipSpaces
|
||||
language <- manyTill anyChar newline
|
||||
blanklines
|
||||
result <- indentedBlock
|
||||
|
|
Loading…
Reference in a new issue