RST reader: Support ".. code::".
commit2fbdf9e0028db93b7913d3c13196e122a7fc2c74
authorJohn MacFarlane <jgm@berkeley.edu>
dateFri 28 Sep 2012, 22:20 (14 years ago)
parent58909aa
src/Text/Pandoc/Readers/RST.hs+5−1
@@ -366,7 +366,11 @@ codeBlockBody = try $ B.codeBlock . stripTrailingNewlines <$> indentedBlock
366366-- specified.
367367customCodeBlock :: Parser [Char] st Blocks
368368customCodeBlock = try $ do
369− string ".. code-block:: "
369+ string ".. "
370+ string "code"
371+ optional $ string "-block"
372+ string "::"
373+ skipSpaces
370374 language <- manyTill anyChar newline
371375 blanklines
372376 result <- indentedBlock