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 +++-
 images/feed.png | Bin 0 -> 689 bytes
 2 files changed, 3 insertions(+), 1 deletion(-)
 create mode 100644 images/feed.png

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)
diff --git a/images/feed.png b/images/feed.png
new file mode 100644
index 0000000..b3c949d
Binary files /dev/null and b/images/feed.png differ
-- 
cgit v1.2.3