---
title: Life in Emacs
---

#+title: Life in Emacs

---
title: Streaming media with FreeBSD
---

#+title: Streaming media with FreeBSD

---
title: Command-line tips
---

#+title: Command-line tips

----
title: Command-line mail
----

#+title: Command-line mail

---
title: Oncologie
---

#+title: Oncologie

---
title: Objectifs
---

#+title: Objectifs

---
title: Maladies
---

#+title: Maladies

---
title: Loi Bioéthique 2021
---

#+title: Loi Bioéthique 2021

---
title: Genes
---

#+title: Genes

#+title: Développement de l'enfant

---
title: Biologie
---

#+title: Biologie

---
title: Biblio
---

#+title: Biblio

                   , filepath

                   , split

import Data.List.Split
import Data.List
import Data.Char
import           System.FilePath.Posix

-- Important note :
-- Hakyll does not manage org metadata. We follow @nasyxx hack mentioned here
-- https://github.com/jaspervdj/hakyll/issues/700
-- with a slight modification in cleanRouteFromTemp
-- The idea is to generate in _temp the file with YAML metada on top on org metadat
-- Then a second pass is needed to generate actual HTML
--------------------------------------------------------------------------------

    match "posts/*" $ do
        route $ setExtension "html"

    -- Hack : generate temporary files for correcting metadata
    match ("posts/*.org" .||. "genetique/*.org") $ do
        route tempRoute
        compile $ getResourceString >>= orgCompiler
    match ("_temp/posts/*.org" .||. "_temp/genetique/*.org") $ do
        route $ cleanRouteFromTemp

    -- Don't forget to set the path to temporary files

            posts <- recentFirst =<< loadAll "posts/*"

            posts <- recentFirst =<< loadAll "_temp/posts/*"

    -- Don't forget to set the path to temporary files

            posts <- recentFirst =<< loadAll "posts/*"

            posts <- recentFirst =<< loadAll "_temp/posts/*"

    match "genetique/*.org" $ do
        route $ setExtension "html"
        compile $ pandocCompiler
            >>= loadAndApplyTemplate "templates/post.html"    defaultContext
            >>= loadAndApplyTemplate "templates/default.html" defaultContext
            >>= relativizeUrls

    -- Don't forget to set the path to temporary files

            posts <- loadAll "genetique/*.org"

            posts <- loadAll "_temp/genetique/*.org"

------------

-- | Temp Route
tempRoute :: Routes
tempRoute = customRoute tempRoute'
  where
    tempRoute' i = ".." </> "_temp" </> takeDirectory p </> takeFileName p
        where p = toFilePath i

--------------------------------------------------------------------------------

cleanRouteFromTemp :: Routes
cleanRouteFromTemp = customRoute createIndexRoute
  where
    createIndexRoute ident =
        (joinPath . tail . splitDirectories . takeDirectory) p
        </> takeFileName p -<.> ".html"
        where p = toFilePath ident
-- | From org get metadatas.
orgCompiler :: Item String -> Compiler (Item String)
orgCompiler = pure . fmap (\s -> (metadatasToStr . orgMetadatas) s ++ s)
orgMetadatas :: String -> [String]
orgMetadatas = map (format . lower . clean) . takeWhile (/= "") . lines
  where
    clean = concat . splitOn "#+"
    lower s = (map toLower . takeWhile (/= ':')) s ++ dropWhile (/= ':') s
    format xs
        | -- drop weekday str. 2018-05-03 Thu -> 2018-05-03
          "date" `isPrefixOf` xs
        = take 16 . concat . splitOn ">" . concat . splitOn "<" $ xs
        | otherwise
        = xs
metadatasToStr :: [String] -> String
metadatasToStr = ("----------\n" ++) . (++ "----------\n") . unlines
----

# Debug/development
    nix develop
    $ ghci
    ghci> :l blog/Main.hs
    ghci> :set args build
    ghci> main

# Rebuild must be done twice due to a limitation of Hakyll with org metadata (see code)

	nix run . build

	nix run . rebuild
	nix run . rebuild