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

Provide CSS hooks for section numbers in headers and TOC entries.

Browse source 
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1659 788f1e2b-df1e-0410-8736-df70ead52e1b
This commit is contained in:
fiddlosopher 2009-12-08 06:53:37 +00:00
parent 2ced785e95
commit 717767ddd1
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/Text/Pandoc/Writers/HTML.hs
View file

@ -166,7 +166,9 @@ elementToListItem :: WriterOptions -> Element -> State WriterState (Maybe Html)
elementToListItem _ (Blk _) = return Nothing
elementToListItem opts (Sec _ num id' headerText subsecs) = do
let headerText' = if writerNumberSections opts
then showSecNum num : Space : headerText
then [HtmlInline "<span class=\"toc-section-number\">",
showSecNum num, HtmlInline "</span>", Space] ++
headerText
else headerText
txt <- inlineListToHtml opts headerText'
subHeads <- mapM (elementToListItem opts) subsecs >>= return . catMaybes
@ -181,7 +183,9 @@ elementToHtml opts (Blk block) = blockToHtml opts block
elementToHtml opts (Sec level num id' title' elements) = do
innerContents <- mapM (elementToHtml opts) elements
let title'' = if writerNumberSections opts
then showSecNum num : Space : title'
then [HtmlInline "<span class=\"header-section-number\">",
showSecNum num, HtmlInline "</span>", Space] ++
title'
else title'
header' <- blockToHtml opts (Header level title'')
return $ if writerS5 opts || (writerStrictMarkdown opts && not (writerTableOfContents opts))