diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2012-08-21 19:21:51 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2012-08-21 19:21:51 -0700 |
| commit | b985d334064da3df9c340175d75f259cf9f1d4d2 (patch) | |
| tree | dfbc0c33420027cc77266eb9266ea5b8bf337133 /src/Text/Pandoc/Writers/Markdown.hs | |
| parent | 7b34dd8dd1cf991807c84fc2900e19869885995d (diff) | |
| download | pandoc-b985d334064da3df9c340175d75f259cf9f1d4d2.tar.gz | |
Changed nomenclature, delimited -> fenced code blocks.
Diffstat (limited to 'src/Text/Pandoc/Writers/Markdown.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/Markdown.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs index 1e381b461..425a63c90 100644 --- a/src/Text/Pandoc/Writers/Markdown.hs +++ b/src/Text/Pandoc/Writers/Markdown.hs @@ -292,8 +292,8 @@ blockToMarkdown opts (CodeBlock (_,classes,_) str) isEnabled Ext_literate_haskell opts = return $ prefixed "> " (text str) <> blankline blockToMarkdown opts (CodeBlock attribs str) = return $ - if isEnabled Ext_delimited_code_blocks opts && attribs /= nullAttr - then -- use delimited code block + if isEnabled Ext_fenced_code_blocks opts && attribs /= nullAttr + then -- use fenced code block (tildes <> space <> attrs <> cr <> text str <> cr <> tildes) <> blankline else nest (writerTabStop opts) (text str) <> blankline @@ -468,7 +468,7 @@ blockListToMarkdown opts blocks = -- insert comment between list and indented code block, or the -- code block will be treated as a list continuation paragraph where fixBlocks (b : CodeBlock attr x : rest) - | (not (isEnabled Ext_delimited_code_blocks opts) || attr == nullAttr) + | (not (isEnabled Ext_fenced_code_blocks opts) || attr == nullAttr) && isListBlock b = b : RawBlock "html" "<!-- -->\n" : CodeBlock attr x : fixBlocks rest |