import Text.Pandoc

import qualified Text.Pandoc as Pandoc

notes :: Pattern
notes = fromList . map (fromFilePath . ("notes/" ++ )) $
  ["japonais.org"
  , "medecine/bacteriologie.org"
  , "medecine/hématologie.org"
  , "medecine/virologie.org"]
notesMedecine = "notes/medecine/*.org"

notesTOC = [ "notes/medecine/bacteriologie.org"
           , "notes/medecine/hématologie.org"
           , "notes/medecine/virologie.org"]

    match notes $ do

    match "notes/japonais.org" $ do
        route $ setExtension "html"
        compile $ pandocCompiler
            >>= relativizeUrls
    match (fromList notesTOC) $ do

            notes' <- loadAll notesMedecine

            notes' <- loadAll . fromList $ "notes/japonais.org" : notesTOC

withTOC :: WriterOptions
withTOC = defaultHakyllWriterOptions { writerTableOfContents = True }

-- Generate table of contents
withTOC = defaultHakyllWriterOptions { Pandoc.writerTableOfContents = True
                                     , Pandoc.writerTOCDepth = 1
                                     , Pandoc.writerTemplate = Just tocTemplate
                                     }
-- from jaspervdj website
tocTemplate = either error id $ either (error . show) id $
  Pandoc.runPure $ Pandoc.runWithDefaultPartials $ Pandoc.compileTemplate "" "$toc$\n$body$"