diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-02-10 18:59:34 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-02-10 18:59:34 +0000 |
commit | 742a465980ea6cd1d23d38ee3f7d6d0d7616f471 (patch) | |
tree | a63ffde7d1dd8c69efef062ff8f2e235013eeac6 /Text/Pandoc | |
parent | 250a3e4dda52af478acfbb61add13461731945a8 (diff) | |
download | pandoc-742a465980ea6cd1d23d38ee3f7d6d0d7616f471.tar.gz |
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
Diffstat (limited to 'Text/Pandoc')
-rw-r--r-- | Text/Pandoc/Writers/HTML.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 << |