Fixed spacing bugs involving code block attributes.

Closes #763.
This commit is contained in:
John MacFarlane 2013-03-11 20:45:27 -07:00
parent f7229b1473
commit 54782c2af6
2 changed files with 2 additions and 2 deletions

View file

@ -611,7 +611,7 @@ codeblock numberLines lang body =
kvs = case numberLines of
Just "" -> []
Nothing -> []
Just n -> [("startFrom",n)]
Just n -> [("startFrom",trim n)]
---
--- note block

View file

@ -328,7 +328,7 @@ blockToMarkdown opts (CodeBlock attribs str) = return $
| otherwise -> replicate (n+1) '~'
backticks = text "```"
attrs = if isEnabled Ext_fenced_code_attributes opts
then attrsToMarkdown attribs
then nowrap $ attrsToMarkdown attribs
else empty
blockToMarkdown opts (BlockQuote blocks) = do
st <- get