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

Add default CSS to document header if syntax highlighting used.

Browse source 
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1215 788f1e2b-df1e-0410-8736-df70ead52e1b
This commit is contained in:
fiddlosopher 2008-02-09 03:20:25 +00:00
parent c492787647
commit c150e84d3c
1 changed files with 27 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -216,6 +216,27 @@ addToCSS item = do
let current = stCSS st let current = stCSS st
put $ st {stCSS = S.insert item current} put $ st {stCSS = S.insert item current}
-- | Generic CSS for syntax highlighting.
highlightingCSS :: String
highlightingCSS =
"pre.sourceCode { }\n\
\pre.sourceCode span.LineNumber { display: none; }\n\
\pre.numberLines span.LineNumber { display: inline; color: #AAAAAA; padding-right: 0; border-right: 1px solid #AAAAAA; margin-right: 3px; }\n\
\pre.sourceCode span.Normal { }\n\
\pre.sourceCode span.Keyword { color: #007020; font-weight: bold; } \n\
\pre.sourceCode span.DataType { color: #902000; }\n\
\pre.sourceCode span.DecVal { color: #40a070; }\n\
\pre.sourceCode span.BaseN { color: #40a070; }\n\
\pre.sourceCode span.Float { color: #40a070; }\n\
\pre.sourceCode span.Char { color: #4070a0; }\n\
\pre.sourceCode span.String { color: #4070a0; }\n\
\pre.sourceCode span.Comment { color: #60a0b0; font-style: italic; }\n\
\pre.sourceCode span.Others { color: #007020; }\n\
\pre.sourceCode span.Alert { color: red; font-weight: bold; }\n\
\pre.sourceCode span.Function { color: #06287e; }\n\
\pre.sourceCode span.RegionMarker { }\n\
\pre.sourceCode span.Error { color: red; font-weight: bold; }"
-- | Convert Pandoc inline list to plain text identifier. -- | Convert Pandoc inline list to plain text identifier.
inlineListToIdentifier :: [Inline] -> String inlineListToIdentifier :: [Inline] -> String
inlineListToIdentifier = dropWhile (not . isAlpha) . inlineListToIdentifier' inlineListToIdentifier = dropWhile (not . isAlpha) . inlineListToIdentifier'
@ -271,11 +292,12 @@ blockToHtml opts (CodeBlock (_,classes,_) rawCode) = do
Just _ -> [OptNumberLines] Just _ -> [OptNumberLines]
let toPre str = pre ! (if null classes then [] else [theclass $ unwords classes]) $ thecode << str let toPre str = pre ! (if null classes then [] else [theclass $ unwords classes]) $ thecode << str
let lcLanguages = map (map toLower) languages let lcLanguages = map (map toLower) languages
return $ case find (\c -> (map toLower c) `elem` lcLanguages) classes of case find (\c -> (map toLower c) `elem` lcLanguages) classes of
Nothing -> toPre (rawCode ++ "\n") Nothing -> return $ toPre (rawCode ++ "\n")
Just lang -> case highlightAs lang rawCode of Just lang -> case highlightAs lang rawCode of
Left _ -> toPre (rawCode ++ "\n") Left _ -> return $ toPre (rawCode ++ "\n")
Right hl -> formatAsXHtml fmtOpts lang hl Right hl -> do addToCSS highlightingCSS
return $ 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;