Add support for Atom and RSS content feeds - this info is available through mf2 anyway so Atom and RSS are kinda redundant, but we'll include them anyway

src/Handler/Home.hs

@@ -6,6 +6,9 @@
 module Handler.Home where
 
 import Import
+
+import Yesod.AtomFeed ( atomLink )
+
 import Widget.Card ( hCard )
 import Widget.Feed ( hFeed )
 
@@ -16,7 +19,9 @@ getHomeR = do
     entries <- runDB $ selectList [EntryAuthorId ==. userId] [Desc EntryPublished]
     defaultLayout $ do
         case maybeTitle of
-          Just title -> setTitle $ toHtml title
+          Just title -> do
+              setTitle $ toHtml title
+              atomLink FeedR title
           Nothing -> return ()
         toWidgetHead
             [hamlet|