From 742a465980ea6cd1d23d38ee3f7d6d0d7616f471 Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Sun, 10 Feb 2008 18:59:34 +0000 Subject: Support for startFrom="nn" to select starting line number in syntax highlighting. Changed argument of highlightHtml to Attr, not [String], for generality. git-svn-id: https://pandoc.googlecode.com/svn/trunk@1232 788f1e2b-df1e-0410-8736-df70ead52e1b --- Text/Pandoc/Writers/HTML.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Text/Pandoc') diff --git a/Text/Pandoc/Writers/HTML.hs b/Text/Pandoc/Writers/HTML.hs index e668e9885..5fbeaaab9 100644 --- a/Text/Pandoc/Writers/HTML.hs +++ b/Text/Pandoc/Writers/HTML.hs @@ -292,8 +292,8 @@ blockToHtml opts (Plain lst) = inlineListToHtml opts lst blockToHtml opts (Para lst) = inlineListToHtml opts lst >>= (return . paragraph) blockToHtml opts (RawHtml str) = return $ primHtml str blockToHtml opts (HorizontalRule) = return $ hr -blockToHtml opts (CodeBlock (_,classes,_) rawCode) = do - case highlightHtml classes rawCode of +blockToHtml opts (CodeBlock attr@(_,classes,_) rawCode) = do + case highlightHtml attr rawCode of Left _ -> return $ pre ! (if null classes then [] else [theclass $ unwords classes]) $ thecode << -- cgit v1.2.3