diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2012-08-21 19:35:36 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2012-08-21 19:35:36 -0700 |
| commit | dc6a133dbfdfcae670ee64e86700fd8234540643 (patch) | |
| tree | dd03b21b1d2ca62f0a7577404f9afc784de3674e /src/Text/Pandoc/Writers | |
| parent | b985d334064da3df9c340175d75f259cf9f1d4d2 (diff) | |
| download | pandoc-dc6a133dbfdfcae670ee64e86700fd8234540643.tar.gz | |
Added Ext_fenced_code_attributes.
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/Markdown.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs index 425a63c90..fc676a9bf 100644 --- a/src/Text/Pandoc/Writers/Markdown.hs +++ b/src/Text/Pandoc/Writers/Markdown.hs @@ -297,8 +297,10 @@ blockToMarkdown opts (CodeBlock attribs str) = return $ (tildes <> space <> attrs <> cr <> text str <> cr <> tildes) <> blankline else nest (writerTabStop opts) (text str) <> blankline - where tildes = text "~~~~" - attrs = attrsToMarkdown attribs + where tildes = text "~~~~" + attrs = if isEnabled Ext_fenced_code_attributes opts + then attrsToMarkdown attribs + else empty blockToMarkdown opts (BlockQuote blocks) = do st <- get -- if we're writing literate haskell, put a space before the bird tracks |