MasseR/rauhala.info
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Post listing?

Browse Source
This commit is contained in:
Mats Rauhala
2023-03-29 22:49:20 +03:00
parent 23658182c2
commit c1058994f3
4 changed files with 301 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
site/app/site.hs
View File

@@ -36,6 +36,7 @@ main = hakyllWith defaultConfiguration{ignoreFile = ignore} $ do
match "posts/*" $ do
route $ setExtension "html"
compile $ pandocCompiler
>>= saveSnapshot "content"
>>= loadAndApplyTemplate "templates/post.html" postContext
>>= loadAndApplyTemplate "templates/default.html" defaultContext
>>= relativizeUrls
@@ -43,6 +44,7 @@ main = hakyllWith defaultConfiguration{ignoreFile = ignore} $ do
match "projects/*" $ do
route $ setExtension "html"
compile $ pandocCompiler
>>= saveSnapshot "content"
>>= loadAndApplyTemplate "templates/project.html" postContext
>>= loadAndApplyTemplate "templates/default.html" defaultContext
>>= relativizeUrls
@@ -97,7 +99,7 @@ archive Archive{..} = create [output] $ do
listField "items" context items
<> constField "title" title
<> defaultContext
items = recentFirst =<< loadAll input
items = recentFirst =<< loadAllSnapshots input "content"
makeItem ""
>>= loadAndApplyTemplate template itemsContext
>>= loadAndApplyTemplate "templates/default.html" itemsContext