dailies: remove

Signed-off-by: Amneesh Singh <natto@weirdnatto.in>
This commit is contained in:
2023-04-27 18:23:42 +05:30
parent 3aade95b85
commit bf64bc92ef
8 changed files with 0 additions and 232 deletions

View File

@@ -109,31 +109,6 @@ main = hakyllWith config $ do
>>= loadAndApplyTemplate "templates/default.html" archiveCtx
>>= relativizeUrls
match "dailies/*org" $ do
route $ setExtension "html"
compile $ do
pandocCompiler
>>= saveSnapshot "dailiescontent"
>>= loadAndApplyTemplate "templates/post.html" dailiesCtx
>>= loadAndApplyTemplate "templates/default.html" dailiesCtx
>>= relativizeUrls
create ["dailies.html"] $ do
route idRoute
compile $ do
dailyToday <- fmap (take 1) . recentFirst =<< loadAllSnapshots "dailies/*" "dailiescontent"
dailies <- recentFirst =<< loadAll "dailies/*"
let dailiesCtx' =
listField "today" dailiesCtx (return dailyToday)
<> listField "posts" dailiesCtx (return dailies)
<> constField "title" "Dailies"
<> defaultCtx
makeItem ""
>>= loadAndApplyTemplate "templates/dailies.html" dailiesCtx'
>>= loadAndApplyTemplate "templates/default.html" dailiesCtx'
>>= relativizeUrls
match "index.html" $ do
route idRoute
compile $ do
@@ -233,11 +208,6 @@ postCtx tags =
<> teaserField "teaser" "content"
<> defaultCtx
dailiesCtx :: Context String
dailiesCtx =
dateField "date" "%B %e, %Y"
<> defaultCtx
defaultCtx :: Context String
defaultCtx =
listField "subdomains" subCtx (return subdomains)