slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

hakyll-std/TableOfContents: remove unused function removeTOCMarker

Browse Source
This commit is contained in:
Everett Hildenbrandt 2018-04-27 01:32:52 -06:00 committed by Simon Michael
parent 3d1c5359a3
commit 6b576a7e2d
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7,7 +7,6 @@ module TableOfContents (
tableOfContents, tableOfContents,
ignoreTOC, ignoreTOC,
collectHeaders, collectHeaders,
removeTOCMarker
) where ) where
import Text.Pandoc import Text.Pandoc
@ -38,10 +37,6 @@ ignoreTOC (Header level (ident, classes, params) inline) =
Header level (ident, "notoc" : classes, params) inline Header level (ident, "notoc" : classes, params) inline
ignoreTOC x = x ignoreTOC x = x
removeTOCMarker :: Block -> Block
removeTOCMarker (BulletList (( (( Plain ((Str "toc"):_)):_)):_)) = Null
removeTOCMarker x = x
collectHeaders :: Block -> [Block] collectHeaders :: Block -> [Block]
collectHeaders header@(Header _ (_, classes, _) _) = collectHeaders header@(Header _ (_, classes, _) _) =
if "notoc" `elem` classes if "notoc" `elem` classes