From fc7097f7368b384f6dc52d32da763af90bd3564a Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@vistahigherlearning.com>
Date: Fri, 9 Oct 2020 08:52:14 -0400
Subject: Add atom feed link.

---
 haunt.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'haunt.scm')

diff --git a/haunt.scm b/haunt.scm
index b8a4a39..f27b2c1 100644
--- a/haunt.scm
+++ b/haunt.scm
@@ -137,7 +137,9 @@ free culture works available under the " ,%cc-by-sa-link " license.")
              (string-append "/" (or prefix "")
                             (site-post-slug site post) ".html"))
 
-           `((h1 ,title)
+           `((h1 ,title
+                 (a (@ (href "/feed.xml"))
+                    (img (@ (src "images/feed.png")))))
              ,(map (lambda (post)
                      (let ((uri (string-append "/"
                                                (site-post-slug site post)
-- 
cgit v1.2.3