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

Added preliminary support for syntax highlighting to HTML writer.

Browse source 
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1213 788f1e2b-df1e-0410-8736-df70ead52e1b
This commit is contained in:
fiddlosopher 2008-02-09 03:20:13 +00:00
parent 6bd25a10a2
commit b3709022ef
1 changed files with 14 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -36,10 +36,11 @@ import Text.Pandoc.Readers.TeXMath
import Text.Regex ( mkRegex, matchRegex ) import Text.Regex ( mkRegex, matchRegex )
import Numeric ( showHex ) import Numeric ( showHex )
import Data.Char ( ord, toLower, isAlpha ) import Data.Char ( ord, toLower, isAlpha )
import Data.List ( isPrefixOf, intersperse ) import Data.List ( isPrefixOf, intersperse, find )
import qualified Data.Set as S import qualified Data.Set as S
import Control.Monad.State import Control.Monad.State
import Text.XHtml.Transitional import Text.XHtml.Transitional
import Text.Highlighting.Kate
data WriterState = WriterState data WriterState = WriterState
{ stNotes :: [Html] -- ^ List of notes { stNotes :: [Html] -- ^ List of notes
@ -263,9 +264,18 @@ 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 (_,classes,_) str) = return $ blockToHtml opts (CodeBlock (_,classes,_) rawCode) = do
pre ! (if null classes then [] else [theclass $ unwords classes]) $ let fmtOpts =
thecode << (str ++ "\n") -- the final \n for consistency with Markdown.pl case find (`elem` ["number","numberLines","number-lines"]) classes of
Nothing -> []
Just _ -> [OptNumberLines]
let toPre str = pre ! (if null classes then [] else [theclass $ unwords classes]) $ thecode << str
let lcLanguages = map (map toLower) languages
return $ case find (\c -> (map toLower c) `elem` lcLanguages) classes of
Nothing -> toPre (rawCode ++ "\n")
Just lang -> case highlightAs lang rawCode of
Left _ -> toPre (rawCode ++ "\n")
Right hl -> formatAsXHtml fmtOpts lang hl
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;