Initial draft of sitemap

Author: BinderDavid

message-index/site.hs

@@ -131,6 +131,26 @@ main = hakyll $ do
 
   match "templates/*" $ compile templateBodyCompiler
 
+  create ["sitemap.xml"] $ do
+    route idRoute
+    compile $ do
+      let messages = loadAll "messages/*/*"
+      let host = "https://errors.haskell.org"
+      let pageCtx :: Context String
+          pageCtx =
+            mconcat
+              [ modificationTimeField "lastmod" "%Y-%m-%d",
+                constField "host" host
+              ]
+      let sitemapCtx =
+            mconcat
+              [ listField "entries" pageCtx messages,
+                constField "host" host,
+                defaultContext
+              ]
+      makeItem ""
+        >>= loadAndApplyTemplate "templates/sitemap.xml" sitemapCtx
+
   create ["api/errors.json"] $ do
     route idRoute
     compile $ do

message-index/templates/sitemap.xml

@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<urlset xmlns="http://www.sitemaps.org/schemas/sitemap/0.9">
+$for(entries)$
+    <url>
+        <loc>$host$$url$</loc>
+        <changefreq>weekly</changefreq>
+        $if(lastmod)$<lastmod>$lastmod$</lastmod>$endif$
+        <priority>0.8</priority>
+    </url>
+$endfor$
+</urlset>