From 372422ab18e2e1bb3cbd48c647b924336217056a Mon Sep 17 00:00:00 2001
From: "Robert W. Pearce" <me@robertwpearce.com>
Date: Thu, 23 Feb 2023 21:57:39 +1300
Subject: [PATCH] feat: add rss link alternate tag to head

---
 src/templates/default.html | 4 ++++
 ssg/src/Main.hs            | 4 +++-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/templates/default.html b/src/templates/default.html
index 038d1cb..67a44af 100644
--- a/src/templates/default.html
+++ b/src/templates/default.html
@@ -39,6 +39,10 @@
 
     <link rel="shortcut icon" href="/favicon.ico">
     <link rel="canonical" href="$root$$url$">
+
+    <link rel="alternate" href="./atom.xml" title="$feedTitle$" type="application/atom+xml">
+    <link rel="alternate" href="./rss.xml" title="$feedTitle$" type="application/rss+xml">
+
     <link rel="stylesheet" href="./css/default.css" />
     <link rel="stylesheet" href="./css/code.css" />
   </head>
diff --git a/ssg/src/Main.hs b/ssg/src/Main.hs
index 6ff6e03..14494ef 100644
--- a/ssg/src/Main.hs
+++ b/ssg/src/Main.hs
@@ -29,7 +29,7 @@ mySiteRoot :: String
 mySiteRoot = "https://my-site.com"
 
 myFeedTitle :: String
-myFeedTitle = "My Site"
+myFeedTitle = "My Feed Title"
 
 myFeedDescription :: String
 myFeedDescription = "My Site Description"
@@ -108,6 +108,7 @@ main = hakyllWith config $ do
       let indexCtx =
             listField "posts" postCtx (return posts)
               <> constField "root" mySiteRoot
+              <> constField "feedTitle" myFeedTitle
               <> constField "siteName" mySiteName
               <> defaultContext
 
@@ -163,6 +164,7 @@ feedCtx =
 postCtx :: Context String
 postCtx =
   constField "root" mySiteRoot
+    <> constField "feedTitle" myFeedTitle
     <> constField "siteName" mySiteName
     <> dateField "date" "%Y-%m-%d"
     <> defaultContext