vaclavsvejcar / svejcar-dev Goto Github PK

withTableOfContents options = options { writerNumberSections  = True
                                      , writerTableOfContents = True
                                      , writerTOCDepth        = 2
                                      , writerTemplate        = Just tocTemplate
                                      }

tocTemplate :: Template Text
tocTemplate = case runIdentity $ compileTemplate "" tmpl of
  Left  err      -> error err
  Right template -> template
 where
  tmpl = T.intercalate
    "\n"
    [ ""
    , "<div class=\"toc\"><div class=\"header\">Table of Contents</div>"
    , "$toc$"
    , "</div>"
    , "$body$"
    ]

tocTemplate =
  either error id $
    either (error . show) id $
      Pandoc.runPure $
        Pandoc.runWithDefaultPartials $
          Pandoc.compileTemplate "" "<div class=\"toc\"><div class=\"header\">Table of Contents</div>$toc$</div>$body$"