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') 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