$title$
+ ++
diff --git a/index.html b/index.html index 68abac3..deda82c 100644 --- a/index.html +++ b/index.html @@ -2,7 +2,6 @@ title: Home home: true --- -
Find more in the archives.
diff --git a/src/site.hs b/src/site.hs index b1f61d2..1c9c174 100644 --- a/src/site.hs +++ b/src/site.hs @@ -80,6 +80,31 @@ 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 @@ -144,6 +169,11 @@ 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) diff --git a/templates/dailies.html b/templates/dailies.html new file mode 100644 index 0000000..0322435 --- /dev/null +++ b/templates/dailies.html @@ -0,0 +1,14 @@ +$for(today)$ ++