add atom feed

2 files changed, 6 insertions, 1 deletions

diff --git a/haunt.scm b/haunt.scm
index 913c16a..2b83cdb 100644
--- a/haunt.scm
+++ b/haunt.scm
@@ -1,5 +1,6 @@
 (use-modules
  (haunt builder assets)
+ (haunt builder atom)
  (haunt builder flat-pages)
  (haunt builder blog)
  (haunt artifact)
@@ -46,6 +47,9 @@
                        (blog #:theme hwebs-theme-now
                              #:collections posts-now
                              #:prefix "now")
+                       (atom-feed #:file-name "blog/feed.xml"
+                                  #:filter filter-not-now
+                                  #:blog-prefix "/blog/post")
                        (flat-pages #:template flat-page-template)
                        (static-directory "images")
                        (lambda (site posts)
diff --git a/theme.scm b/theme.scm
index 7fcef24..22ea1c7 100644
--- a/theme.scm
+++ b/theme.scm
@@ -51,7 +51,8 @@
              ,(post-sxml post)))
          #:collection-template
          (lambda (site title posts prefix)
-           `((ul
+           `((p (a (@ (href "/blog/feed.xml")) "Atom feed."))
+             (ul
               ,@(map (lambda (post)
                        `(li (a (@ (href ,(post-uri post site prefix)))
                                ,(post-ref post 'title)