Change layout

This commit is contained in:
2018-09-20 22:54:59 +03:00
parent 4e2d6342b4
commit 2db7c774a2
9 changed files with 5 additions and 22 deletions

13
site.hs
View File

@ -25,7 +25,7 @@ main = hakyll $ do
route idRoute
compile compressCssCompiler
match (fromList ["about.markdown", "contact.markdown"]) $ do
match (fromList ["index.markdown", "contact.markdown"]) $ do
route $ setExtension "html"
compile $ pandocCompiler
>>= loadAndApplyTemplate "templates/default.html" defaultContext
@ -59,17 +59,6 @@ main = hakyll $ do
>>= loadAndApplyTemplate "templates/default.html" archiveCtx
>>= relativizeUrls
match "index.html" $ do
route idRoute
compile $ do
let indexCtx =
constField "title" "Home" `mappend`
defaultContext
getResourceBody
>>= applyAsTemplate indexCtx
>>= loadAndApplyTemplate "templates/default.html" indexCtx
>>= relativizeUrls
match "templates/*" $ compile templateBodyCompiler