From 0ce8744897b9aa13ea568a6985da9570e4aca90b Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 2 Feb 2020 13:53:54 +0100
Subject: Use zola generator

- Use CSS instead of Haskell with Clay
- Use TypeScript instead of PureScript
---
 src/Main.hs | 57 ---------------------------------------------------------
 1 file changed, 57 deletions(-)
 delete mode 100644 src/Main.hs

(limited to 'src/Main.hs')

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" ]
-  }
-- 
cgit v1.2.3