simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-11-09 21:22:26 +03:00
Code Issues Projects Releases Wiki Activity

hakyll-std/TableOfContents: Blaze dependency removed from generateTOC

Browse Source
This commit is contained in:
Everett Hildenbrandt 2018-04-27 02:55:59 -06:00 committed by Simon Michael
parent 40934fa72e
commit c19c62fd2b
1 changed files with 11 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
site/hakyll-std/TableOfContents.hs
View File

@ -66,21 +66,20 @@ markupHeader n = error $ "'markupHeader' should only be passed a 'Node $ Head
markupHeaders :: Forest Block -> H.Html
markupHeaders = mconcat . map markupHeader
createTable :: Forest Block -> H.Html
createTable headers =
(H.nav ! A.id "toc") $ do
H.p "Contents"
H.ol $ markupHeaders headers
createTable :: TOCAlignment -> Forest Block -> Block
createTable _ [] = Null
createTable alignment headers
= render $ (H.nav ! (A.id "toc" <> alignmentAttr)) $ do
H.p "Contents"
H.ol $ markupHeaders headers
where render = (RawBlock "html") . renderHtml
alignmentAttr = case alignment of
TOCRight -> A.class_ "right-toc"
_ -> mempty
generateTOC :: [Block] -> TOCAlignment -> Block -> Block
generateTOC [] _ x = x
generateTOC headers alignment x@(BulletList (( (( Plain ((Str "toc"):_)):_)):_))
= case alignment of
TOCRight -> render . (! A.class_ "right-toc") . table $ headers
TOCLeft -> render . table $ headers
_ -> x
where render = (RawBlock "html") . renderHtml
table = createTable . groupByHierarchy
= createTable alignment . groupByHierarchy $ headers
generateTOC _ _ x = x
tableOfContents :: TOCAlignment -> Pandoc -> Pandoc