|
|
|
@ -28,21 +28,6 @@ main = hakyll $ do |
|
|
|
|
>>= loadAndApplyTemplate "templates/default.html" postCtx |
|
|
|
|
>>= relativizeUrls |
|
|
|
|
|
|
|
|
|
create ["archive.html"] $ do |
|
|
|
|
route idRoute |
|
|
|
|
compile $ do |
|
|
|
|
posts <- recentFirst =<< loadAll "posts/*" |
|
|
|
|
let archiveCtx = |
|
|
|
|
listField "posts" postCtx (return posts) `mappend` |
|
|
|
|
constField "title" "Archives" `mappend` |
|
|
|
|
defaultContext |
|
|
|
|
|
|
|
|
|
makeItem "" |
|
|
|
|
>>= loadAndApplyTemplate "templates/archive.html" archiveCtx |
|
|
|
|
>>= loadAndApplyTemplate "templates/default.html" archiveCtx |
|
|
|
|
>>= relativizeUrls |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
match "index.rst" $ do |
|
|
|
|
route $ setExtension "html" |
|
|
|
|
compile $ do |
|
|
|
|