Let the front page redirect to the newest recipe

2024-10-30 20:44:21 +01:00
parent 8b3af9e8f3
commit 2019e64ba2
2 changed files with 9 additions and 0 deletions
--- a/byg/src/SiteGenerator.hs
+++ b/byg/src/SiteGenerator.hs
@@ -129,6 +129,10 @@ generateSite = do
  atomText <- generateAtom newest infos
  saveTextFile atomText (joinPaths outputDir (inject "atom.xml"))

+  redirectTemplate <- makeTemplate (readTextFile (inject "redirect.html")) (inject "URL")
+  newestSlug <- onToken (T.pack . snd . head') infos
+  saveTextFile (applyTemplate redirectTemplate newestSlug) (joinPaths outputDir indexName)
+
  -- Handle about page
  outputAboutDir <- joinPaths outputDir (inject "om")
  makeDir outputAboutDir