aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Main.hs57
1 files changed, 0 insertions, 57 deletions
diff --git a/src/Main.hs b/src/Main.hs
deleted file mode 100644
index 50a562d..0000000
--- a/src/Main.hs
+++ /dev/null
@@ -1,57 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-
-import Data.List (sortBy)
-import Data.Monoid (mappend)
-import Data.Ord (comparing)
-import Hakyll
-import Hakyll.Core.Item (Item (itemIdentifier))
-import System.Process (readProcess)
-import qualified System.Process as Process (rawSystem)
-
-main :: IO ()
-main = hakyllWith configuration $ do
- match "images/*" $ do
- route idRoute
- compile copyFileCompiler
-
- match "design/**" $ do
- route $ customRoute $ const "main.css"
- compile $ do
- filePath <- getResourceFilePath
- unsafeCompiler (readProcess "runghc" [ filePath ] "")
- >>= makeItem
-
- match "js/src/**" $ do
- route $ customRoute $ const "main.js"
- compile $
- unsafeCompiler (readProcess "pulp" [ "--psc-package", "build", "--optimise", "--src-path", "js" ] "")
- >>= makeItem
-
- match "recettes/**" $ do
- route $ setExtension "html"
- compile $ pandocCompiler
- >>= loadAndApplyTemplate "templates/recipe.html" defaultContext
- >>= relativizeUrls
-
- match "index.html" $ do
- route idRoute
- let context =
- listField "mainDishes" defaultContext (loadAll "recettes/plats/*") `mappend`
- listField "lowCarbDesserts" defaultContext (loadAll "recettes/desserts/hypoglucidique/*") `mappend`
- listField "highCarbDesserts" defaultContext (loadAll "recettes/desserts/hyperglucidique/*") `mappend`
- listField "cleaningRecipes" defaultContext (loadAll "recettes/nettoyage/*") `mappend`
- defaultContext
- compile $
- getResourceBody
- >>= applyAsTemplate context
- >>= loadAndApplyTemplate "templates/index.html" context
- >>= relativizeUrls
-
- match "templates/*" $ compile templateBodyCompiler
-
-configuration :: Configuration
-configuration = defaultConfiguration
- { destinationDirectory = "public"
- , deploySite = const $
- Process.rawSystem "rsync" [ "-avzh", "public/", "joris@guyonvarch.me:/var/www/cooking.guyonvarch.me" ]
- }