add rss/atom feeds (#63)

Author: mrcjkb

app/Main.hs

@@ -1,50 +1,51 @@
 {-# LANGUAGE OverloadedStrings #-}
 
 import           Hakyll
-import Text.Pandoc.Highlighting
-import Text.Pandoc.Options      (WriterOptions (..))
-import Prelude
+import           Prelude
+import           Text.Pandoc.Highlighting
+import           Text.Pandoc.Options      (WriterOptions (..))
 
 main :: IO ()
-main = hakyll $ do
-    match "images/*" $ do
+main = hakyll  do
+    match "images/*"  do
         route   idRoute
         compile copyFileCompiler
 
-    match "files/*" $ do
+    match "files/*"  do
         route   idRoute
         compile copyFileCompiler
 
-    match "css/*" $ do
+    match "css/*"  do
         route   idRoute
         compile compressCssCompiler
 
-    match "CNAME" $ do
+    match "CNAME"  do
         route   idRoute
         compile copyFileCompiler
 
-    match (fromList ["about.rst", "contact.markdown"]) $ do
+    match (fromList ["about.rst", "contact.markdown"])  do
         route   $ setExtension "html"
         compile $ pandocCompiler'
             >>= loadAndApplyTemplate "templates/default.html" defaultContext
             >>= relativizeUrls
 
-    match "cv.html" $ do
+    match "cv.html"  do
         route idRoute
         compile $ getResourceBody
             >>= loadAndApplyTemplate "templates/default.html" defaultContext
             >>= relativizeUrls
 
-    match "posts/*" $ do
+    match "posts/*"  do
         route $ setExtension "html"
         compile $ pandocCompiler'
             >>= loadAndApplyTemplate "templates/post.html"    postCtx
+            >>= saveSnapshot "content"
             >>= loadAndApplyTemplate "templates/default.html" postCtx
             >>= relativizeUrls
 
-    create ["archive.html"] $ do
+    create ["archive.html"]  do
         route idRoute
-        compile $ do
+        compile  do
             posts <- recentFirst =<< loadAll "posts/*"
             let archiveCtx =
                     listField "posts" postCtx (return posts) `mappend`
@@ -56,15 +57,23 @@ main = hakyll $ do
                 >>= loadAndApplyTemplate "templates/default.html" archiveCtx
                 >>= relativizeUrls
 
-    create ["css/syntax.css"] $ do
+    create ["css/syntax.css"] do
       route idRoute
-      compile $ do
+      compile  do
         makeItem $ styleToCss pandocCodeStyle
 
+    create ["atom.xml"] do
+      route idRoute
+      compile $ mkFeed renderAtom
+
+    create ["rss.xml"] do
+      route idRoute
+      compile $ mkFeed renderRss
 
-    match "index.html" $ do
+
+    match "index.html"  do
         route idRoute
-        compile $ do
+        compile  do
             posts <- recentFirst =<< loadAll "posts/*"
             let indexCtx =
                     listField "posts" postCtx (return posts) `mappend`
@@ -95,3 +104,19 @@ pandocCompiler' =
     defaultHakyllWriterOptions
       { writerHighlightStyle   = Just pandocCodeStyle
       }
+
+type FeedRenderer = FeedConfiguration -> Context String -> [Item String] -> Compiler (Item String)
+
+mkFeed :: FeedRenderer -> Compiler (Item String)
+mkFeed render = do
+    let feedCtx = postCtx `mappend` bodyField "description"
+        feedConfiguration = FeedConfiguration
+          { feedTitle       = "mrcjkb"
+          , feedDescription = "My Hakyll site"
+          , feedAuthorName  = "Marc Jakobi"
+          , feedAuthorEmail = "[email protected]"
+          , feedRoot        = "mrcjkb.dev"
+          }
+    posts <- fmap (take 10) . recentFirst =<< loadAllSnapshots "posts/*" "content"
+    render feedConfiguration feedCtx posts
+

posts/2023-06-06-luarocks-test.markdown

@@ -10,7 +10,6 @@ class: container
   <a href="https://github.com/nvim-neorocks/nvim-busted-action">
     <img src="https://avatars.githubusercontent.com/u/124081866?s=400&u=0da379a468d46456477a1f68048b020cf7a99f34&v=4" alt="nvim-busted-action">
   </a>
-  <h2>🌒</h>
 </div>
 <!-- markdownlint-restore -->
 

templates/default.html

@@ -20,6 +20,8 @@
                   <a href="/contact.html">Contact</a>
                   <a href="/cv.html">CV</a>
                   <a href="/archive.html">Archive</a>
+                  <a href="/rss.xml">RSS feed</a>
+                  <a href="/atom.xml">Atom feed</a>
               </nav>
             </div>
         </header>