Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Put language class information in pre tag, not code tag, in HTML code blocks.

Browse source 
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1207 788f1e2b-df1e-0410-8736-df70ead52e1b
This commit is contained in:
fiddlosopher 2008-02-09 03:19:24 +00:00
parent 2e683e8b53
commit f2354590f9
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Text/Pandoc/Writers/HTML.hs
View file

@ -263,9 +263,9 @@ blockToHtml opts (Plain lst) = inlineListToHtml opts lst
blockToHtml opts (Para lst) = inlineListToHtml opts lst >>= (return . paragraph) blockToHtml opts (Para lst) = inlineListToHtml opts lst >>= (return . paragraph)
blockToHtml opts (RawHtml str) = return $ primHtml str blockToHtml opts (RawHtml str) = return $ primHtml str
blockToHtml opts (HorizontalRule) = return $ hr blockToHtml opts (HorizontalRule) = return $ hr
blockToHtml opts (CodeBlock lang str) = return $ pre $ blockToHtml opts (CodeBlock lang str) = return $
thecode ! (if null lang then [] else [theclass lang]) << (str ++ "\n") pre ! (if null lang then [] else [theclass lang]) $
-- the final \n for consistency with Markdown.pl thecode << (str ++ "\n") -- the final \n for consistency with Markdown.pl
blockToHtml opts (BlockQuote blocks) = blockToHtml opts (BlockQuote blocks) =
-- in S5, treat list in blockquote specially -- in S5, treat list in blockquote specially
-- if default is incremental, make it nonincremental; -- if default is incremental, make it nonincremental;